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LLL II] NNN NNN KKK KKK EEE RER RRR 

LLL 11] NNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR ARR 
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LLL II] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 
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LLL 11] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE ARP RR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE _ RRR RRR 

LLLLLLLLLLLLLLL IIIIIIII1 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 
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LL NN NN KK KK 000000  BBBBBBBB JJ PPPPPPPP SSSSSSS$ 222222 | 

tL NN NN KK KK 000000  BBBBBBBB 1) PPPPPPPP SSSSSSSS 399999 

tt NN NN KK Kk 00 00 BB BB sy PP PP SS 22 22 

tt NN NN KK KK 00 00 8B BB 13 PP PP §§ 55 55 

LL NNNN NN KK KK 00 00 8B 6B JJ PP PP SS 22 

tt NNNN NN KK KK 00 00 BB BB sy PP $$ 35 | 

tt NN NN NN KKKKKK 00 00 BBBBBBBB ‘J PPPPPPPP SSSSSS 22 

tL NN NN NN KKKKKK 00 00 BBBBBBBB 13 PPPPPPPP SSSSSs 55 

tL NN NNNN KK. KK 00 00 BB BB JJ sy PP S$ 22 

LL NN NNNN KK KK 00 00 6B BB JJ JJ PP SS 22 

tL NN NN KK KK 00 00 8B BB JJ 13 PP s§ 22 a 

tL NN NN KK KK 00 00 BB BB J 13 PP ss 33 — 

CLLLLLLLLL NN NN KK Kk 000000 BBBBBBBB JJJJJS OPP SSSSSSSS_ 2232222222 conte 

CLLLLLLLLL NN NN KK KK 000000  BBBBBBBB JJJJJ PP SSSSSSSS 3299999990 a 

LL III SSSSSSSS 

tL III SSSSSSSS 

tL 1] S$ 

tL II S$ 

tL 1] §§ 

tL 11 $$ 

tL 1] SSSSSS 

tL 1] SSSSSS 

LL 1] S$ 

tL 1 §§ 

LL 11 SS 

tL 11 $$ 

CLLLLLLLLL  IIIIII  SSSSSSSS | 

LLLELLLLLLE §©=OosaEAI1 © SSSSSSSS | 
| 
} 
| 
| 
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0 : 
module \nk_objpass2 : 
(ident = *v04-000' : 

-addressing_mode ‘ 

(nonexternal = long_relative ‘ 

9 ponserem, = general ‘ 


begin 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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1* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

# INCL FTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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: 1 1 
3 1 1 
3 1 1 
: 1 1 

: 1 1 

3 1 1 

3 1 1 | 
: 1 1 

. | 1 

: 1 1 

3 § 1 

3 1 

> te 0 ¢ 1 

3 § 0 1 

4 5 ; : re TRANSFERRED. 

5 !e 

; § 0 $ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

3 0 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

; § : : : 1* CORPORATION. 
E 'e 

3 : 030 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS | 
$ 5 ° : : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

: 1 Ie 

3 az ; 4 1 Vee eRRARAE REAR AAA AAEATAAAAAATAe eee eeeeeeeeeeeeeeeeeeeene 

; 035 1! 

; 0036 1! 

ae 0037 1! 

3 $ 0038 1! 

3 9 0039 1! 

: 460 0040 1 !++ 

; 641 0041 1! | 
$ ri} Boeg 1 ! MODULE: LNK_OBJPASS2 
Py 4 004 1! 
3 44 044 1 ! FACILITY: LINKER 
: 45 045 1! 

3 46 0046 1 ! ABSTRACT: PASS 2 OF OBJECT MODULES 

s 67 0047 1! 

: 48 gee 1 ! HISTORY: 

; «649 0049 1! 

; 20 Baes ' } VERSION: x01.00 

: 7 4 1! AUTHOR: T.J. PORTER 11-APR-77 

_ : 2 053 1! 

4 54 0054 1 ! MODIFIED BY: 

oe te 1! : 

; 28 1! v03-016 ADE0002 Alan D. Eldridge 13-Aug-1984 

5 57 0057 1! Fix call to LNKSWRTIMGBYTS so that the repeat count 
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; eB 28 ! } is ‘l"' instead of ‘'0"’. : 
: Ps re ! v03-015 ADE0001 Alan 0. Eldridge 64-May-1984 
cag 1; Fix access violation in STORECOMMAND. ; 
; 6 063 1! VO3-014 JywT0154 Jim T 
: eaque 10-Feb-1 ; 
3 bee ! apenas that contributed to the DST but had "9 posts 
Beh yi the were ocher than O-Llength were left out of the : 
68 $ +i aed evise the poreeeeeyy here: make a DMT entry 3 
; @ Reed i or eny module that contributes to the DST, regardless ; 
9 ie ? A. e presence or absence of non-O-Llength psects. | : 
: 8 gfe | 1 rewrote the whole mess while | vee at it. placing ae 
7 o971 | oh ol, Hi, parate, heavily-commented routine, | : 
; #7 073 1: v03-013 JwT0136 Jim T 
! ; eague 07-Sep-1 ; 
ie 0074 : when oe for a pic shareable image rage t te | z 
% +5 a ? non ferece able reference, be sure to check if the 

Be BT: 15°85 we Pasucde {tis fust'atusrning == go anesd aft | 

; . warning -=- 

re th : } computing the symbol reference. ° pee ee | 

;  ©80 0080 1 | v03-012 ywT0118 i 

: BI 0081 1: olesnet Wiametaen Baran a | 

; 8 008 am eoeee May gstack for processing symbols and | 

> BG 0084 1} VO3-011 JWT0116 Jim T | 

; eague 9-Apr-1 

8? tH ; } Now error message LINS_STDISPIC for $10.40 ~ tt | 

: 8? 008? 1 i ee: syore non-relocatable values into pic shr images. 

; & ++ pers splacement is computed relative to the Linker's 

4 ts ore Vago y {tantel teen) . and once the image is 

90 0090 1 | cated, that displacement will Likely be wrong. 

; (91 0091 1! VO3-010 JwT0094 i 

; F 0092 1! Don't write len oy yeegue ag Pee 

: $ of Last DMT 

+, Bnei : production is disabled. ee ee en ee | 

; 9S 0095 1 | v03-009 swT0092 i 

; 96 00 1! Fix to DMT oleate” yyogue Pied ne 

; : adjustment wh 

44 s'44 : of nothing Bur haere psects. picid ime 

: 299 0099 1: v03-008 ywr0088 Jim T 

; : eague l2-Jan- 

: in og) : } Filter O-length psects Sut of DMT info. si thie 

3; 10 102 1: v03-007 JwT0084 Jim T 

: : eague 07-Jan-1 

108 0108 ! oon pone more of shareable image symbol it Hy 

; 105 0105 1i pera: 

; 1 1! V03-006 JwT0080 Jim Tea 

; gue 15-Dec-1 

: 4 a107 ‘ Fix part of shareable image symbol PRE oa tas , SO 

3; 109 109 1! v03-005 swT0078 Jim Te 

; : ague 15-Dec- 

19 119 ! Change implementation of DMT. Don't A gg oy 

11¢ 1N¢ i section -- let Debugger map it if needed. 

: 11 113 1! v03-004 ywT0074 Jim T 

7 (116 0114 1! Finalize Debugger DAT. wlth 
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v03-003 JwT0061 Jim Teague 22-0¢ t-1982 
Add debugger image section to images Linked /debug. 


v03-002 JwT0041 Jim Teague 30-Jun-1982 
Fix for shr img symbols in based clusters | 


v03-001 JwT0038 im Teague 23-Jun-1982 | 
Clean up INFO#212 errors. 
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14-Sep-19 LINKER.SRCJLNKOBJPS2. (2) 

a ler 3? ° 
3 3 1 8 1 le ° 
Bi.% 1 , 3 ® 
3 ! : : 9 : FUNCTIONAL DESCRIPTION: ‘ 
1 132 1 : 
a 1 : 1! THIS MODULE CONTAINS THE ROUTINES WHICH IMPLEMENT THE SECOND OBJECT ‘ 
; 135 136 1! MODULE PASS OF THE LINK. SINCE THE DATA STRUCTURES RELATING ‘ 
3; 1 bie OBJECT MODULES AND FILES WERE BUILT DURING PASS 1, IT IS NOW ONLY ‘ 
3 : 4 : } Sy gid TO FOLLOW THE LINKED LISTS TO ACQUIRE EACH OBJECT ; 
3; is 0 4 1! PASS 2 1S CONCERNED WITH WRITING THE BINARY TO THE 
; 140 1 1! OUTPUT IMAGE AND PRODUCTION OF THE MODULE SYNOPSIS OF THE 
3 «6161 140 1! TPUT MAP LISTING. THEREFORE, THIS PASS IGNORES GSD 
: 16g 141 1! RECORDS COMPLETELY. 
3; 14 146 1 !-- 
3 (146 1435 1! 
> «(145 aise 1 library 
3 | 145 1 *LIBL32'; ' SYSTEM DATA STRUCTURES 
:; (14 p168 1 require 
3; «6148 0147 1 *PREFIX'; ! MACROS ETC. 
; «149 0 6¢ 1 library 
; 150 0265 1 *DATBAS'; ! INTERNAL DATA BASE 
3; 151 0264 1 require 
; 1 0265 1 *ISGENC’; ! ISECT GENERATION CONTROL TABLES 
: 4 49 1 require 
3 AUX’; ' AUXIL Y | 

134 0350 ! *TIRAUX' ! ILIARY MACROS FOR TIR DATA 
; 6156 $739 1 structure 
3 137 Brey 1 doublevector Ci. Jin-un ited enter) = 
; 138 741 1 deuniten] 
; «159 Bree 1 (doublevector + 2*unitti + unit*j) ; 
: 160 07435 1! 
; «6161 0744 1 Linkage 
: 166 745 «1 tir_proc = jsb : global (commandtype = 11 
; 16 Sy 1 -commandata = 10 
: 164 747 «#1 datalng = 9 
; 12? to: : 5 preserve (2,3,4) nopreserve (5,6,7,8), 
; 169 0750 1 tir_proc2 = call : global (commandtype = 11 
: 168 0751 1 -commandata = 10 
: is? $736 1 datalng = 9 | 
> 170 753 1 S; 
; #171 Pee 1 forward routine 
3 "6 755 #1 report_illnaming, ' ILLEGAL SYMBOL NAME LENGTH 
; 7 9728 1 report_tirlng : tir proce, ! REPORT RECORD TOO SHORT FOR DATA REQUIRED 
3 (174 0757 #1 report_udefpsc ' REPORT REFERENCE TO UNDEFINED PSECT | 
3 175 758 #1 report_useundef, ! REPORT USING UNDEFINED SYMBOL 
; 176 759 «1 report _useudfenv, ! REPORT USING UNDEFINED ENVIRONMENT 
Pele 760 1 report_useudflsy, ' REPORT USING UNDEFINED MODULE LOCAL SYMBOL 
; #178 761 #1 prohdrs, ' PASS 2 PROCESSING OF HEADER RECORDS 
; 179 762 #1 alloc_spcr, ' ALLOCATE SPCR BLOCK 
: 190 765 (1 compare_spcr, ! COMPARE VALUE AND SPCR BLOCK 
7 764 1 compare Lit, ' COMPARE VALUE AND LIT BLOCK 
Pin fad Shin. eee Ea secon 
: rotirdbg, : 
3; 1 766 1 ctackconbend : tir proc, ' PROCESS TIR STACK COMMANDS 
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v00=000 1 8-198e 13:40:33 EC TNKeR” SRE SLWROBJPS2 842; 1 25] vc 
; 185 768 1 storecommand tir proc, ! PROCESS TIR STORE COMMANDS : 
: 4 ud: 1 operatecommand : tiriproc. i PROCESS TIR OPERATE COMMANDS ; 
oe 770 «+1 controlcommand : tir proc, ' PROCESS TIR CONTROL COMMANDS : 
eS 771 «#1 report_ilitir : tir proc ! PROCESS ILLEGAL TIR COMMANDS : 
; (189 Ae 1 report_ilitir2 tir-proce, ' PROCESS ILLEGAL TIR COMMANDS : 
; 190 775 «1 fndpscmapent, ! RETURNS MAPPING TABLE ADDRESS | : 
; 191 774 1 baseallimages, | BASE ALL PIC,NON-BASED SHAREABLE IMAGES | F 
: 198 775 1 checkshrsym, i VERIFY CORRECTNESS OF SHR IMG SYMBOL REF | ; 
: 19 776 1 setaddressref, | STORE INFO FOR .ADDR ; 
: 194 777 (1 push, i PUSHES VALUES ONTO INTERNAL STACKS F 
; 12? 78 : pop ; : REMOVES THEM , 
: 138 780 1 external routine 
: 198 781 1 crtsinsrtkey, ' INSERT A KEY DESCRIPTION IN CREF TABLES 
; 199 7 § 1 crf$insrtre ' INSERT A REFERENCE IN CREF TABLES 
; 200 783 (1 LibSinsert_tree, i INSERT INTO BINARY TREE 
3; 201 784 1 Lib$Slookup-tree, i LOOKUP IN BINARY TREE 
; 0¢ 785 1 ink$nxtobjmod, i ACQUIRE NEXT OBJECT MODULE 
; 20 786 1 ink$nxtrec, i GET NEXT RECORD OF OBJECT MODULE 
3 204 0787 1 ink$mapmhd, i MAP MODULE HEADER INFORMATION 
3; 205 0788 1 ink$maplng, i MAP THE COMPILER NAME 
: 96 789 1 ink$searc i SYMBOL TABLE SEARCH 
; 20 0790 1 ink$searchlocal, i LOCAL SYMBOL TABLE SEARCH 
; 208 873) 1 Lnk$fndpscnam, ! FIND/ENTER P-SECTION 
; 209 138 1 ink$al Lobl i MEMORY ALLOCATION ROUTINE 
: 210 793 1 ink$getfixsize, i COMPUTE SIZE OF FIXUP VECTOR 
; ell 794 1 ink$crefixisd, i CREATE FIXUP SECTION 
: ig 795 1 ink$al Lovirmem, i ALLOCATE MEMORY AT A SPECIFIC ADDRESS 
; 1 3738 1 ink$c luvirmem, ' ALLOCATE MEMORY FOR A CLUSTER 
3 6216 797 «(1 Lnk$Swrtimgbyts; ! WRITE BYTE STREAM TO IMAGE 

15 0798 1! 
: ig 0799 1 external Literal 
3 21 0800 1 Lib$_normal, ! NORMAL RTL RETU 
; 218 0801 1 Lin$"adrwrtdat, i ,ADDRESS IN cna nwt Sect LON 
+ 219 080¢ 1 LinS-alredef, i MULTIPLE . TRANSFER MBOL 
; 0 803 1 Lin$"basduerrs, i BASING IMAGE DUE to REFERENCE ERRORS 
; 1 0804 1 Lin$S_eomstk, i STACK NOT COLLAPSED AT EOM 
; ¢ 0805 1 Lin$_format, ' ILLEGAL FORMAT 
; 08 1 Lin$_illnamelen, ' ILLEGAL NAME Lewery (SYMBOL OR PSECT) 
: 4 0807 1 Lin$illrectyp. i ILLEGAL RECORD TYPE 
3 5 0808 1 Lin$-illshropr, | ILLEGAL OPERATOR ON SHR IMG SYM 
; g 0809 1 Lin$S"illshrxpr, i TWO SHR SYMS IN EXPRESSIO 
; 0810 1 LinStilltir, i ILLEGAL TIR C 
; g 111 Lin$intstkov, i INTERNAL STACK OVERFLOW | 
: 1 1 Lin$~intstkun, i INTERNAL STACK UNDERFLOW 
: B13 1 LinS~insvirmem, | INSUFFICIENT VIRTUAL RERORY | 
: 1 gi4 1 Lin$"noepm, i ATTEMPT TO STACK ENTRYPOINT 
; ¢ 1§ 1 Lin$“nogsdref, i NO GSD REF TO SHAREABLE IMAGE SYMBOL FOUND | 
; B16 1 Lin$-no ngtil i NO IMAGE FILE CREATED 
; 17 1 Lin$-nonpicref, i USE OF .LONG, ETC TO RELOCATABLE IN SHAREABLE IMAG | 
; 5 818 1 Lin$"notpsect, i SET RELOC. BASE TO OTHER THAN PSECT CONTEXT 
3 819 1 Lin$_rectyp,. ' ILLEGAL RECORD 
; 820 1 Lin$"shrpscref. i INCORRECT REFERENCE TO SHAREABLE IMAGE PSECT 
5 ; . 2 Lin$S_shrsymref, ' INCORRECT REFERENCE TO SHA a LE snAce SYMBOL 
3 § 1 lin oSareyatra. ' ATTEMPTED . TRANSFER FOR a IMG SYM 
: 240 } 1 Lin$“stalitudf, i STACK OF UNDEFINED LITERA 
+ 261 41 LinStiring, i TIR COMMAND DATA O'F FLOWS RECORD 
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3 5 1 Lin$_tirnyi, ! UNIMPLEMEMTED aula COMMAND : 
3 § 1 Lin$_trunc, : ep ae ERRORS | ; 
: 1 Lin$_truncdat, !' WITH DATA OUTPUT ; 
; 8 1 Lin$_udefpsc, ! REFERENCE TO UNDEFINED P-SECTION ‘ 
; 1 Lin$_useudfeny, ! REFERENCE TO UNDEFINED ENVIRONMENT ‘ 
; 0 1 Lin$_useudfene, | see . 
r : Lin$_useudflsy, ! REFERENCE TO UNDEFINED MODULE-LOCAL SYMBOL ‘ 
; § 1 Lin$"useunde ! USING AN UNDEFINED SYMBOL : 
; 1 Lin$-useundef2, i y+. IN A DEBUG / TRACEBACK RECORD | : 
3 1 Lin$S_illvps, ' ILLEGAL ARGUMENTS TO STORE VARIABLE POSITION/SIZE ‘ 
3 5 1 Lin$_excpsc ! TOO MANY PSECTS DEFINED (IN A SHAREABLE IMAGE BEIN ‘ 
; ' Lin$"stdispic; i tirSc_sto_ld or sto_bd of scalar in a pic shr imag : 
5 8 : 1 external 
3 ts 1 Lnk$gl_dmtbytes, ! SIZE OF DMT 
3 0 1 ink$gl_dmtbuf fer : vector (2), ! BUFFER FOR ALLOCATED FOR DMT 
3 841 1 ink$gw_shriscts : word, ! NUMBER OF ISECTS FROM PIC SHAREABLE IMAGES 
5 eeg 1 ink$gb_matchctl : byte, ' GLOBAL SECTION MATCH CONTROL FOR SHAREABLE IMAGE B 
$ 1 ink$al_valctltb, ! CREF BY VALUE CONTROL TABLE 
3 844 (1 rt ot ted | ph ae ' SYMBOL TABLE FORMAT DESCRIPTION BLOCK 
3 845 1 ink$gl_ctlmsk : block C, byte) ' LINK CONTROL MASK 
3 see 1 ink$gl_curisd : ref pteck sbytel, ! ADDRESS OF ISD OWNING — P-SECT 
; 847 1 ink$gl_defclu : block C,byte ! DEFAULT CLUSTER DESCRIPTO 
3 a8 1 ink$gl_locn, ! CURRENT LOCATION COUNTER 
3 849 1 ink$gl_dstlocn, ' CURRENT LOCATION IN DEBUG SYMBOL TABLE 
r 850 1 ink$gl"curclu : ref block C,bytel, ' POINTER TO CURRENT CLUSTER DESCRIPTOR 
; te 1 ink$gl_clulst, ' LIST HEAD OF CLUSTER LIST 
5 £26 1 ink$gl_fixisd : ref block C,bytel, ' POINTER TO FIXUP ISECT DESCRIPTOR | 
3 0855 (1 ink$gl_lastgadr,. ' LAST SPECIAL G* ADDR ASSIGNED 
; 0854 1 ink$gl_record, ' RECORD NUMBER 
; 0855 «(1 ink$gl_rprotisd, ! NUMBER OF ISECTS TO REPROTECT 
; p28 1 ink$gl_imgfil : ref block C byted, ! IMAGE FILE FD | 
3 0857 1 Lnk$gt_imgnam : vector L,byte ! IMAGE FILE NAME 
; eth 4 1 Lnk$gt_symstring, ' ASCIC STRING OF ‘SYMBOL‘ 
; 0859 1 Lnksoe _pscstring, ! ASCIC STRING bed "PSECT’ 
; 0860 1 ink$gl"curomd : ref block f- ebyted. ' POINTER TO CURRENT OBJ MOD. DESCRIPTOR 
3 t¥e ; ink$gl-curfil : ref block C,byte] ; ! POINTER TO CURRENT FILE DESCRIPTOR 
; Oses 1 global 
; 864 «1 ink$gl_omdadrist, ' LISTHEAD OF LIST OF OMD'S SOM ASHENS ADDRESS 
5 Bare 1 ink$gl_omdadrend, ' POINTER TO END OF OMDADRLST 
5 ¥¢ 1 ink$gl_nadromd, ' NUMBER OF MODULES CONTAINING .ADDRESS DATA 
3 867 1 ink$gl—pshrnum : initial (0), ' COUNT THE NUMBER OF PSECTS | 
; 1 ' BOUND FOR A (POSSIBLE) 
; 1 ' SHAREABLE IMAG 
; 870 1 Link$gl_spcgfix, i NUMBER OF SPECIAL G* FIXUPS 
3 871 1 ink$gl_spcgimgs, ' NUMBER OF SHR IMGS tarts ig a WITH SPECIAL G* FIXU 
Z ors 1 nk$gl"adrefs, ! NUMBER OF Marty ty FIXUPS IN 
3 875 1 ink$gl_shradr, ' NUMBER OF SHA aes IMAGES REF D BY .ADDRESS 
3 7% «1 ink$gl_litbl, ! POINTER TO UTTER ALT 
; 75 #1 ink $gt Litflgs : bitvector yee nits], ! DEF FLAGS FOR LITERALS 
3 6 : :; ink$gl"curpsc : ref block C,byte] ; 1 POINTER TO CURRENT PSECT DESCRIPTOR 
: 8 1 global literal 
: 5 : stk$c_size = 25 ; ! INTERNAL STACK SIZE 
; 088! 1 own 
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E THE ABS PART OF SHR IMG EXPRESS 


: § 1 absexpr : initial (0), ' USED TO ACCUMULAT 
; 1 shrimgsym : ref block (,byte], ' POINTER TO STACKED SYMBOL DESCRIPTOR IF FROM SHARE : 
: 1 shrsymexpr : ref block [,bytel, !' POINTER TO STACKED SYMBOL DESCRIPTOR IF SHR IMG SY ; 
; 7s obmodesc : ref p‘eck -bytel, : CURRENT OBJ DESCRIPTOR : 
; 1 objrecdesc : block Cdsc$c_s_bln, byte] ! STRING DESCRIPTOR FOR OBJ RECORD ; 
3 1 curpsectbase, ! BASE ADDRESS OF CURRENT tt aaa ‘ 
3 1 stapx : byte, ' TRUE IF LAST COMMAND WAS STA . 
: 1 stackpointer : byte, ' INTERNAL STACK ron NTER : 
3 1 senognegeut : byte, ! TRUE IF MSG T BASING HAS BEEN ISSUED : 
; 308 891 1 endrecaddr, ' END OF CURRENT Be COR D ; 
; 309 £36 1 tiroffset, ' OFFSET OF CURRENT COMMAND ; 
; 3510 93 1 ) ' POSITION DEPENDENCE LEVEL : 
; 311 94 «1 tlags : block (2, byte ' word for fl 9 : 
: \§ 95 1 compustack : vector Cstk$c ES ' COMPUTATION STACK ; 
; 1 538 1 pdlstack : vector Cstk$c_ mT Bets ! PDL STACK : 
3 14 0897 1 psectstack : doublev ctor Cstks ‘- size ' STACK TO wecone P=-SECTION CONTEXT ; 
; 315 8 38 1 shrsymstack : vector (stk$c_size ' STACK SHRIMGSYM : 
: 1 99 1 stapxstack : vector stk$c_size, ‘byte]. ' STACK STAPX : 
3 (OST 00 1 flagstack vector (stk$c_size, word ! word stack for symbol information : 
; 318 901 1 prev_dstlen addr, ! address of dstlen field of previous module ; 
; a : dmtptr ref block C,byted; ! current ptr into DMT : 
; 1 0904 1 bind : 
3 § 0905 1 reclng = objrecdesc fescSu_ Length] : word, 

3 ? 34's : objrec = objrecdesc (dsc$a_pointer] : ref block C.byte); 

3 5 0908 1 psect own = $code$; 

3 $ 0909 1 own 

3 0910 1 stkdatingtbl : vector Ctir$Sc_maxstacod+1, byte] ! STACK COMMAND DATA LENGTH TASLE 

3 28 0911 1 initial (byte” (1, ! 0 = STACK GLOBAL AT LEAST on BYTE FOLLOWS 

3 2 o3i8 1 1, ' 1 = STACK SIGNED BYTE - ONE BYTE MUST FOLLOW 

4 091 1 : ¢ - STACK SIGNED WORD - TWO BYTES MUST FOLLOW 

3 1 Bare 1 4, : - STACK LONGWORD - FOUR BYTES MUST FOLLOW 

$ ¢ 16 1 ¢: '4- STACK P=SECTION BASE PLUS BYTE = TWO DATA BYTE 

2 \$ 1 " '5- WORD = THREE DATA BY 

5 17 (1 , : § 5 Nae - ** —** LONGWORD - FIVE DATA 

3 5 918 1 Ve } - STACK UNSIGNED BYTES = ONE BYTE MUST FOLLOW 

b4 4484 1 i : 8 - STACK UNSIGNED WORD - TWO Orr MUST FOLLOW 

3 0 1 0, ! 9 = STACK BYTE FROM IMAGE = NO DATA BYTES 

3 0921 1 0, ' 10 = STACK WORD FROM IMAGE - NO DATA BYTES 

3 9 9 ¢ 1 0, ' 11 = STACK LONGWORD FROM IMAGE - NO A BYTES 

3 0 1 > . \¢ - STACK ENTRY POIN SK = AT LEAST ONE BYTE RE 

; 1 924 1 g*argsc size, ' 13 = STACK RESULT OF ARGUMENT CHECK. 

3 § a P ' 14 = STACK PSECT BASE PLUS BYTE (WORD PSECT NUMBER 

3 9 $ 1 4, ' 15 = STACK PSECT BASE PLUS WORD (WORD PSECT NUMBER 

3 4 9 1 ¢. : 1 = STACK PSECT BASE PLUS LONGWORD (WORD PSECT NU 

3 5 0928 «(1 ' 17 = STACK LOCAL SYMBOL 

: 6 9 1 15), i 18 - STACK LITERAL 

: , ? : ! 3)), ' 19 = STACK LOCAL ENTRY POINT 

3 § § 1 storectitbl : blockvector Ctir$c_maxstocod-tirS$< -minstocod+] ' THIS IS T A | 

; 350 1 stoct($c_size, byte] ~ ' STORE COMMAND CONTROL TABLE 

: 551 1 i EACH ENTRY OF WHICH HAS TWO BYTES, BEING 

s 26 5 1 ' THE FLAGS AND OUTPUT BYTE COUNT (RESPECTIV 

; 5 1 ' FOR THE CORRESPONDING STORE COMMAND. 

3 354 9 1 ' SEE *TIRAUX' FOR FURTHER DETAILS. 

; 355 9 1 ' COMMAND TIRSC_MINSTOCOD + ... 


5 

18-se -1984 00:17: AX-11 Bliss-32 V4.0-74 Page 8 

14-Sep-19 4 93:10:48 LINKER SRE SLNKOBJPS2. 69251 . (2). 
1 initial ( byte (0,1, ; 9 - STORE SIGNED BYTE 
1 eee : = STORE SIGNED WORD 
1 4, : ; - STORE LONGWORD | 
1 stoctl$m_displ,1, ! 3 = STORE BYTE DISPLACED 
1 stoctl$m_displ,2, ! 4 = STORE WORD DISPLACED 
1 stoct $m + + 4, ! 5 = STORE LONGWORD DISPLACED 
1 *stoct(Sc_mbzbit,1, | § = STORE SHORT LITERAL | 
1 4, ! 7 = STORE POSITION INDEPENDENT LONGWORD DA. 
1 ote ! 8 = STORE POSITION INDEPENDENT CODE REFERE | 
1 i WHICH IS ADDRESSING MODE FOLLOWED BY LONGW| 
1 stoctl$m_rep,1, ! 9 = REPEATED SIGNED BYTE 
1 stoctl$m_rep,2, ! 10 = REPEATED SIGNED WORD 
1 toctl$m_rep,4, ' 11 = REPEATED LONGWORD 
1 xo ; \¢ - ARBITRARY BIT FIELD (UP TO 1 BYTE, BU 
1 8“stoctl$c_mbzbit,1 ! 135 = UNSIGNED BYTE 
1 16*stoctl$¢_mbzbit,2, i 14 = UNSIGNED WORD 
1 stoctl$m_rep or (8*stoctl$c_mbzbit) ,1, ! 15 = REPEATED UNSIGNED BYTE 
1 stoctl$m_rep or (16*stoctl$c_mbzbit),2, ! 16 - REPEATED UNSIGNED WORD 
1 stoctl$m_conmbz or (8*stoct\Sc_mbzbit) 1, ! 17 = BYTE (-128 TO +255) 
1 stoctl$m_conmbz or (16“*stoctl$c_mbzbit),2, ! 18 = WORD (-32K TO + 65K) 
1 stoctl$m_rep or stoctl$m_conmbz or ! 19 = REPEATED BYTE (-128 TO +255) 
1 *stoctl$c_mbzbit),1, 
1 stoctl$m_rep or stoctl$m_conmbz or ! 20 = REPEATED WORD (-32K TO +65K) 
1 (16*stoctl$c_mbzbit),2, ! 20 = REPEATED WORD (-32k TO +65K) 
1 stoctl$m_rep,0, ! 21 = STORE REPEATED IMMEDIATE VARIABLE NO. 
: ’ : ! 22 = STORE POSITION INDPENDENT RELATIVE RE 
: bind psect own = Sown$; 

n 

1 fixup_section = cstring ("Fixup section"), ' NAME OF THE FIXUP SECTION 
1 objvec = objrec : ref vector pebyted. ! NAME RECORD AS BYTE VECTOR ALSO 
: tirrec = objrec : ref vector C,bytel; ' RENAME THE RECORD 


———— — a 


Mm 5 

LNK_OBJPASS2 16-Sep-1984 00:17:44 AX=-11 BL isg -32 V4.0-74 Pa 9 

Woe 2080 ae 90:10:48 LINKER, SRC LNKOBJPS2.852;1 ™ (3) | 
| 

; 390 972 1 routine report_illnaming (symbolstring) 

: 391 He begin — a 

; 39 975 2 | REPORT SYMBOL NAME LENGTH ILLEGAL 

: 394 p378 ! 

3; #9 97 map 

3 38 44: symbolstring : ref vector(,byte); 

: 398 980 2 signal(Lins git inanelen , ink$gt_symstring, 

; 399 981 symbolstring 05. symb LString(0J, 

; 400 098 pyazc pastes pose desclomd$b =naming], 

3; 401 O38 Link$gl_curfi(Cfdb$q_filename]); 

; 40 984 

: 404 


40 0985 return false 
end; 


= 
o 
o 
oo 
o 
_ 


-IDENT \V0%-000\ 
-PSECT $CODE$,NOWRT,2 


| 
| 
TITLE LNK_OBJPASS2 
05 04 01 00 00 00 02 01 05 05 02 04 02 01 01 00000 STKDATLNGTBL: | 


le Je 2. §- 2. 3. 5. 1. 2. 0, 0. 0, 1.4. =| 
01 03 06 04 00005 3, 4, 6, 3, 
00013 -BLKB 
00 01 30 04 02 02 02 01 02 04 00 02 00 01 00 00014 sTORECTLTBL: 

BYTE 0, a 0, as 0, ¢ e te 2s PB 4, 48, _ Ps 

Q2 80 01 49 04 OO 0% 01 Q2 01 01 O1 05 00 04 00023 1,05 4.9, 5 Ve dg toshe Oe hee 3 
00 00 01 02 85 01 45 02 84 01 44 02 81 01 41 00032 64, 1,.-128, ¢. "5," 1,,°187, 2, 68, 1, - | 
04 00041 ie “2, 69, 13,2, 1, 0, 0, 4 ; | 
} 
»PSECT SPLITS, NOURT ,NOEXE 2 | 
0D 00000 P.AAA: .BYTE 13 | 
6E 6F 69 74 63 65 73 20 70 75 78 69 46 00001 “ASCII \Fixup section\ | 


-PSECT SOWNS,NOEXE,2 


00000000 00000 ABSEXPR: tr 
00004 SHRIMGSYM 


00008 sunsynexta 
0000C anne - 
00010 ameenee 
00018 CURPSECTBASE: 


QOO1C S$ -BLKB 
00010 STACKPOINTER: 


LK 
QO01E ogee t 


—-—- -@ —-r wor SF FO 


-BLK 
$0020 ENDRECADDR: 


LNK _OBJPASS2 
v0s=000 


00000000 


5 
e738 b-Sen- 1986 $3:40r8s — YetNceR Shes Lacon see? 6$2.1 


-BLKB 4 
00024 TIROFFSET: 

~BLK 4 
ones 8 PDL: -BLKB 4 
O02C FLAGS: .BLKB § 
38 3 8 
0 COMPUSTACK: 100 
00094 PDLSTACK: 

-BLKB ¢9 
OOAD -BLKB 
OOBO PSECTSTACK: 

-BLK 200 
00178 SHRSYMSTACK: 

-BL 100 
0010C stooges 5 
OO1FS -BLKB 4 
001F8 FLAGSTACK: 

-BLKB 50 
0022A -BLKB 2 
0022C PREV _DSTLEN 1 eee 


0000C 
00010 
00014 
00018 
0001C 
00020 
00024 
00044 


DMTPTR: *BLKB 4 
.PSECT $GLOBAL$,NOEXE,2 
LNKSGL -OMDADRLST 
LNKSGL =ORPADREND 
LNKSGL_NADROMD: : 
BLK 
LNKSGL_PSHRNUM: : 
.LON 
LNKSGL_SPCGEIX:: 
LNKSGL_SPCGIMGS: 
LNKSGL_ADREFS:: 
LNKSGL_SHRADR 
LNKSGL_LUTBL : : 
LNKSGL_LITFLGS: : 
LNKSGL_CURPSC:: 
BLKB 


i ee ae ee eres 


nnwH 
nun 
" 


Page Ad 


Lh 
v¢ 


wee 
6 
LNK_OBJPASS2 1e-se =1984 00:17:44 AX=11 Bliss-32 v4. Page A 
v0e=000 122880- 1384 93540543 LINKER’ SREILNKOBJPS2.B B32;1 : 3) 
IHDSK_MAXLENGTH== 168 
HDRSK_MINFILL== § 
STK$C~SIZE== 5 
RECLNG= OBURECDESC | 
OBJREC= OBJRECDESC+4 | 
FIXUP_SECTION= P.AAA 
OBJVET= OBJRECDESC+4 
TIRREC= OBJRE CDESC +4 
EXTRN SINSRTKEY, CRFSINSRTREF 
EXTRN SINSERT TREE 


EXTRN LNKSFNDPSCNAM, LNKSALLOBLK 


, IRMEM, LNK$ 

-EXTRN LNKSWRTIMGBYTS, LIBS$_N 

-EXTRN LINS_ADRWRTDAT, LINS_ALREDEF 

.EXTRN LINS-BASDUERRS, LINS 

-EXTRN LINS"FORMAT, LINS_ILCNAME 

-EXTRN LINS-ILLRECTYP, LINS_ILLSHROPR 

-EXTRN LINSTILLSHRXPR, LINS"ILLT 

-EXTRN LINS_INTSTKOV, LINS_INTSTKUN 

-EXTRN LINS_INSVIRMEM, LINS_NOEP 

-EXTRN LINS_NOGSDREF, LINS_NOIMGFIL 

-EXTRN LINS-NONPICREF, LINS_NOTPSECT 

TEXTRN LINSTRECTYP, LINS_SHRPSCREF 

-EXTRN LINS~SHRSYMREF , CINS. SHRSYMTRA 

~EXTRN LINSTSTALITUDF. LINS~TIRLNG 

-EXTRN LINS-TIRNYI, LINS_TRONC 

-EXTRN LINS TRUNCDAT, LINS_UDEFPSC 

-EXTRN LINS_USEUDFENV, LINS_USEUDFEN2 

-EXTRN LINS"USEUDFLSY, LINS~USEUNDEF 

EXTRN LINSUSEUNDEF2, LINS~ILLVPS 

-EXTRN LINS"EXCPSC, LINS_STBISPIC | 
-EXTRN LNKSGL_DMTBYTES 
-EXTRN LNKS$GL-DMTBUFFER 
.EXTRN LNK$GWSHRISCTS 

-EXTRN LNKSGB"MATCHCTL 
-EXTRN LNKSAL VALCTLTB | 


“SYTBLFMT 
-EXTRN LNKSGL_CTLMSK, LNKSGL CURISD 
~EXTRN tNKSC” “DEFCLU, LNK$GL_LOCN 
-EXTRN LNKS$GL_DSTLOCN, UNNKSGL CURCLU 
-EXTRN LNKSGL-CLULST, “LNKSGL _PIXISD 
-EXTRN LNKSGL-LASTGA 
-EXTRN LNKSSL~ “RECORD, W axset _RPROTISD 
I intNRscT IMGNAM 


TRING | 
ZEXTRN LNKSGLCUROMD, LNKSGL_CURFIL 
.PSECT S$CODE$,NOWRT,2 
0000 00000 REPORT ~ILLNARLN G: 


Save nothing : 0972 


6 
LNK PASS2 1h-s¢ 1984 AX-11 Bliss-32 v4.0 Page 12. 
i a=000 12-808 - 1 3be 90:16 33 CLINKER. SRC ILNKOBJPS2. ago, 1 . 5 
E 00 146 1 2 ADDL3 #20, LNKSGL_CURFIL, -(SP) : 0983 : 
i taittdaite EF “8 C1 A ite , OBMODESC, *(§b) : aH : 
F bp : PUSHL ; : 098 : 
7E 4 BC 9A 0001 MOVZBL @SYMBOLSTRING, -(SP) : : 
4 aC po 18 PUSHL SYMBOL N : : 
000000006 F PUSHAB LNKSGT_SYMSTRING ; 80 ; 
6 0D PUSHL + 0983 | : 
000000006 BF DD PUSHL MINS. I ILLNAMELEN : ; 
000000006 00 : FB CALLS , LIBSSIGNAL ; ; 
D4 000 9 CLAL RO + 0985 ; 
04 000 RET + 0986 


; Routine Size: 51 bytes, Routine Base: $CODE$ + 0042 


; Routine Size: 44 bytes, Routine Base: $CODE$ + 0075 


1 
| 
: | 
LNK_OBJPASS2 Sep-1984 17:44 AX-11 Bliss-32 V4.0-74 Page 13) 
yOe=000 ~300 138% 9071048 LINKER. SRC [WKOB IPS? B42:1 . (4) | 
3; & 987 1 routine report_tirlng : tir_proc2 = 
EBM Ge § perce ice tee 
; re 1444 ! REPORT RECORD TOO SHORT TO HOLD REQUIRED DATA 
: 411 99 external registe 
2 a Bie dle 
: 414 0995 signal(Lin$_tirlng,4,.dataln cobnodenclondse naming] !SIGNAL RECORD TOO SHORT 
: ai2 838 - ink$gl_record, ink$gl_curfil fdb$q_ filename); 
: 617 0998 2 return false 
; 418 0999 end; 
0000 00000 REPORT_TIRLNG: 
» WORD Saye nothing ; 0987 
7E 00000000G 00 14 C€1 00002 ADDL3 #2 LNKS$SGL_CURFIL, -(SP) ; 0996 
000000006 00 DD OO00A PUSHL LNK$GL_RECORD : 
7E 00000000" EF 28 C1 00010 ADDL #40, OBMODESC, -(SP) 3 0995 
59 DD 00018 PUSHL DATALNG ; 0996 
04 DD OOOIA PUSHL #4 : 
00000000G 8F DD O00IC PUSHL #LINS$_TIRLNG 5 
000000006 00 06 FB 00022 CALLS #6, LIBSSIGNAL : 
50 D4 00029 CLAL RO ; 0998 
04 00028 ; 0999 
| 
| 


6 
LNK_OBJPASS2 1$-sep-19 4 00:17:44 AX-11 Bliss-32 V4.0-74 Page 14 
1007000 14-Sep-1984 3:40.38 LINKER .SRCILNKOBJPS2. $251 . (5). 
: 620 1000 1 routine report_udefpsc (psectnum) = | 
3 : 1 : 3 begin 
: : § : 08 REPORT REFERENCE TO AN UNDEFINED PSECT 
; 425 1908 signal (Lin$_udefpsc ,3,.psectnum,obmodescComd$b_naming], 
: 426 1 Be inkSgl_curfillfdb$q_filename); 
; 4627 100 
; 428 1008 return false 
: 429 1009 end; 
0000 00000 REPORT_UDEFPSC: 
«WORD Save nothing : 1000 
7E 00000000G 00 14 C1 00002 ADDL #20, LNKSGL_CURFIL, -(SP) : 1006 
7E 00000000" EF 28 C1 QOOOA ADDL #40, OBMODESC, -(SP) : 1005 
046 AC OD Bente PUSHL C : 1006 
03 dD 0001 PUSHL 3 
00000000G 8F DD 00017 PUSHL #LINS_UDEFPSC 3 
000000006 00 05 FB 0001D CALLS #5, LIBSSIGNAL ; 
50 D4 BOSE CLRL RO : 1008 
04 00026 RET : 1009 


; Routine Size: 39 bytes, Routine Base: S$CODE$ + OO0A1 


F 6 
LWK_OBJPASS2 16-Sep-1984 00:17:44 - VAK"11 Bliss-32 v4.0-76 Pose 1 
ie=000 1ereee= ibe 93:20:83 | ee nceR sae fi acon eee oS2.1 mr of 


; Routine Size: 89 bytes, Routine Base: S$CODE$ + 00C8 


! 

| 
; 431 101 1 —_ ine report_useundef (symbolname) = : 
fo ABT 3 beat cay 
: ? ¢ : 18 7 REPORT ATTEMPT TO USE AN UNDEFINED SYMBOL | ‘ 
; 4 1015 if .Unk$gl_ctlmsk age 4 gorge] : 
; 4 1 18 then signal (Lins guseun def symbol : 
: 438 1017 obmodese LomdSb_naming], LnkSgl_curfil Cfdb$q_filenae! | ; 
; 440 1019 else signal yy gyeeundet. 5, .symbolname ; 
> 441 1020 k$ql- _curpsc Cpsc$b angalng) . lnk$gl_locn- at sectbase) ; 
: a + 1 robno eSc Comd$b_namlig], Uk$gl curfil Cfd ilename] : 
: 6446 10 § 3 
3; 4465 1024 return false 3 
: 666 1025 1 end; 3 
0004 00000 REPORT_USEUNDEF : 3 
WORD Save R2 ; 1010 3 
52 00000000G 00 9€ 00002 pray LIBSSIGNA Qe 3 3 
51 00000000G 00 14 C1 00009 ADDL #20, LNKSeL CURFIL, R1 3: 1017 3 
50 00000000" EF 28 C1 00011 ADDL3 #40, OBM 3 3 
12 000000006 00 €9 00019 BLBC LNKSGL CTLMSK+2, + 1015 ; 
03 BB 00020 PUSHR #*M R1> : 1017 3 
04 AC DD 00022 PUSHL S YROOLHAME 3 3 
03 DD 00025 PUSHL @# : 3 
00000000G 8F DD 00027 PUSHL arg USE UNDEF? 3 3 
2 05 FB b00¢0 CALLS 5, LTB$ 3 : 
24 11 00030 BRB A j : 
03 Be 00032 1$: PUSHR “M<RO,R1> 3: 1021 3 
7E 00000000G 00 00000000' EF C3 00034 SUBL3  CURPSECTBASE, LNKSGL _LOCN, =(SP) : 1020 3 
7E 00000000° EF 2D C1 00040 ADDL3 #45, LNKSGL _CURPSC, =(SP) : 3 
04 AC ODD Bees PUSHL SYMBOLNAME ; 1021 : 
9 DD 00048 PUSHL a ; : 
00000000G 8F DD ed PUSHL ft USEUNDEF 3 3 
2 07 FB 0005 CALLS TB$SIGNAL 3 F 
50 D4 00056 2$: CLRL 3: 1024 3 
04 0005 RET : 1025 : 
| 
| ; 
| : 
| : 
| . 


; Routine Size: 84 bytes, Routine Base: SCODE$S + 0121 


‘ | 
LWNK_OBJPASS2 1g-se -1984 217: AxX-11 Bliss-32 V4.0-74 P 16 
vOG=000 1288-1986 19:40:33 ELTNKER SRESLAKOBJPS2.BS2; 1 oe | 
: 46 1 $ 1 routine report_useudfenv (envdesc.envindex) = | : 
: 6 | begin | ; 
; 2 ; } $ ; REPORT REFERENCE TO UNDEFINED ENVIRONMENT | 3 
: 4 § 1031 map : 
; 2 : : § envdesc : ref block(, byte); | : 
i 4 6 1034 2 Local | i 
; 2 i : é ht haat : 
; arg); : 
; 459 1 : 
: 460 1 : if .envdesc eql 0 : 
; 461 1 then begin : 
; 46 1040 errorcode = Lin$_useudfen2; : 
3 re : 4) org! = .envindex; : 
; en 3 
; 465 1948 else begin 3 
: 4666 1044 errorcode = Lin$_useudfenv; : 
; re 4 Ne? arg) = envdesc(nvd$b_naming); : 
© en ° a 
: 469 1069 Signal orreryode.2-- 8° gs : 
; $70 1048 pnkSe) .cureec psc$b_naming), $ 
3; «471 1049 (. ink$gl_locn-.curpsectbase), 3 
; 47 1050 obmodescCondsp nam ng 3 
i 405 1051 ink$gl_curfill¥db$q_tilename)); : 
: 475 1988 return false F 
; 476 1054 1 end; . 
0000 00000 REPORT_USEUDFENV: : 
«WORD Save nothing 3 10¢6 : 
04 aC 05 0000 TSTL ENVDESC ; 1038 : 
OD 1 00 BNEQ 1$ : : 
3} aneaet * 8F D et MOVL #LINS_USEUDFEN2, ERRORCODE : 1040 : 
0 a i BOVE NVINDEX, ARG1 : 1st : 
51 000000006 fF DO OOO14 18: MOVL, AL INS USEUDEENY, FRRORCODE > 1044 F 
30 AC le ¢ 1 ADDL3 #18, ENVDESC, ARG ; 1045 ; 
E G 0 14 C1 28: ADDL3 #20, LNKSGL CURFIL, -(SP) : 1051 ; 
7E FF 28 C1 ADDL3 # , (SP) : 1050 ; 
7E 0G 00 00000000' EF C3 SUB CURPSECTBASE LNKSGL_LOCN, (SP) : 1049 : 
7E 00000000° EF dD Ci C ADDL LNKSGL_CURPSC, =(SP) : 1048 ; 
Q DD 00044 PUSHL ARG{ : 1051 ; 
2) 28 PUSHL #5 : : 
1 0O 4 SHL ERRORCODE : : 
000000006 00 7 FB 4A CALLS 7, LIBSSIGNAL $ 3 
0 e 0051 CLRL RO : 1053 : 
4 00053 RET : 1054 : 


H 6 
LNK PASS2 19-3 744 AX-11 Bliss-32 v4. P 17 
vou=000 14- So 1982 13:44 :40:33 LINKER. SRC [NKOBJPS2.B92; :1 ee (8) | 


Sz 


; «6 1055 1 rout ine report_useudflsy (symbolname) = 
if 18st g frai 
; ? : REPORT REFERENCE TO UNDEFINED LOCAL SYMBOL 
 ¢ 1 si al (Lins useudfls bolna 
; 4 1 ~ inkSgl_ corpses $580 nanings (, Lnk$gl_locn=.curpsectbas 
; 485 1 pnodesc omd$b “nenlngs, ink$gT_ curfil fab $q_fil EE 
3 6 1 return false; 
; & 1 3 
e nothing ; 1055 
7E 06 00 16 C1 00002 Abe | a30" LAKSGL CURFIL, =(SP) + 1062 
7E » fH 28 C1 QOO0A ADDL #40, OBMOD ) : 
7E 906 00000000' cf C3 00012 SUSL CURPSECTBASE LNKSGL =LOCn, -(SP) + 1061 
7€ * EF D C1 OOO1E ADDL re: L_CURPSC, =(SP) : 
04 AC DD 0026 PUSHL SYMBOLNA + 1062 
DD 000 PUSHL #5 : 
000000006 F DD B PUSHL ¢ INS$_USEUDFLSY : 
000000006 00 7 FB 00031 CALLS LYTBSSIGNAL j 
0 04 000 CLRAL RO’ : 1063 
04 O003A RET : 1064 


| 
| 
| 
0000 00000 REPORT NSEVOrLSY: ; 
; Routine Size: 59 bytes, Routine Base: S$CODES + 0175 
| 
| 


AX-11 Bliss-32 v4.0 Page 1 
LINKER. SRC (iobJPS2-6 2;1 (9 


w 


fous tne report_ilitir : tir proc = 
begin 
external register 
commandtype = 11 : byte; 
signal(LinS_illtir,4, 
. commandtype .obmodesclomd$b_namin 
- ink$gl_record, ink$gl_ curfitltdbsa, “Sst enanelts 


return false 
end 


Oe Oe Oe Oe Oe Oe Oe Oe Oe ee eee 
ane = 
oO 
“ 
—> —) se tt tt 
ooo 
Vil wn—O0@W 


SN 


7E 000000096 00 14 C1 00000 REPORT_ILLTIR: _ or SE ge coe 
000000006 9 DD 8 PUSH LnKSGL COR > : 
7E 00000000" EF 1 ADDL bEMODESC, (SP) : 107 
8 9A 0001 MOVZBL COMMANDTYPE =(SP) + 107 
000000006 SF bp 9001 PUSHE #LINS_ILLTIR : 
000000006 00 FB 000 CALLS a6, LTB$SIGNAL F 
b4 0028 CLRL = RO + 1075 
5 0002A RSB : 1076 


; Routine Size: 43 bytes, Routine Base: S$CODE$S + 01B0 


. 
a 
. 
o 
. 
o 
. 
. 
. 
. 
. 
a” 
. 
e 
. 
on 
. 
7 
. 
2 
. 
. 
. 
” 
. 
. 
. 
. 
. 
o 
. 
. 
7 
o 
. 
e 
. 
o 
. 
7 
. 
. 
. 
a 
- 
e 
. 
e 
- 
o 
. 
o 
. 
o 
7 
e 
. 
o 
7 
. 
. 
& 
« 
. 
Z 
. 
e 
. 
o 


—> 4 + 


Wwnr—oO 


i =PRAPASS2 


wr 


“ 


; Routine Size: 


bt st tk a 


~~ 
MSwn—O0e~ 


rout ine report_illtir2 : tir_proc2 = 
begin 


external register 
commandtype = 11 : byte; 


signal (Lin$_illtir,4, 
-commandtype,obmod seCond$b 
. ink$gl_record, ink$gl_curfil 


return false 
end; 


0000 GO000 REPORT_ILLTIR2: 
-WOR 


7E 000000006 00 14 «C1 
000000006 . DD 
7E 00000000" EF 


+ 
E B 9A 
04 DD 

00000000G 8F oD 

000000006 00 96 FB 
Oe 


45 bytes, Routine Base: SCODE$S + 01DB 


1 
1 


naming 
Cfdb$q 


0002 
OOA 


6 


=$p-1986 12:40 


] 
“filename)); 


44 AX-11 Oi legrze 15885 b$2.1 


LINKER. SRCJLNKOBJPS 


saye nothing 
#20, LNKS$GL_CURFIL, -(SP) 
LNK$GL_RECORD 

#40, OBMODESC, -(SP) 
COMMANDTYPE , =(SP) 


r) 
#LINS_ILLTIR 
Ht LTB$SIGNAL 


a eeSSSSSFSFESeEeSeeeeet*# - = —y 


Pa 0) 
949) 


LNK_OBJPASS2 -1984 00:17:44 AX-11 Bliss-32 v4.0 
raves titi =}382 90:10:83 LINKER. SRC LNKOBJPS2. hho. 1 
: MF } 9 1 es bg fndpscmapent(psctnum) = | 
: i$ 1 : ® THIS ROUTINE RETURNS THE ADDRESS OF THE MAPPING TABLE ENTRY 
; 18 1 3 ‘ FOR THE GIVEN PSECT NUMBER. 
3 i : 7 ! 
: 1 1095 if .psctnum gtru_.obmodesclomd$w_hipsctJ 
: ¢ : 38 then return 0; s | 
: 524 1 38 if not .obmodesclomd$v P25 4) 
: 5 i$ then return obmodesclomd$t_pscmap]+.psctnum*pmt$c_size | 
i ; 1391 | MODULE HAS MORE THAN 256 PSECTS | 
; 3 1108 sine begin 
: : 1188 local mapent : ref block(,bytel; 
; 2 § 1108 mapent = .(obmodescComd$t_pscmap] + (.psctnum/256)*pmt$c_size); ' GET EXTENDED TABLE ADDRESS 
5 ti 110 if .mapent neq 0 ' IF EXTENDED TABLE PRESENT 
3 1108 then return aapent + (.psctnum mod 256)*pmt$c_size ! THEN RETURN ENTRY ADDRESS 
: 5 1109 else return 6; 
3 § 1110 end; 
3; 337 1111 end; ! OF FNDPSCMAP 
0004 00000 FNDPSCMAPENT: 
» WORD Save R2 ; 1089 
52 04 aC DO 00002 MOVL BSC TNUM a 3: 1095 
51 00000000" EF D0 00006 MOVL § OBMODESC, F 
52 12 Al 10 0 ED 000 CMPZV #0, #16, 18tR1D, R2 $ 
F 1F 0001 BLSSU_ 2$ 3 
06 14 Al § 60 001 BBS #6, 20(R1), 1$ ; 1098 
50 48 A14 af ootA noyae 72(R1)CR2J, RO : 19 
50 52 00000199 7 000 1$ DIVL 9336 R2, RO + 1106 
arto F 99 PUSHAQ 72(R1)CRO) : 
51 5 D 5 C MOVL a(SP)+, MAPENT 3 
1 F BEQL rs} 3 1107 
43 8 52 4 7A 00031 EMUL #1, R2, #0, -(SP) : 1108 
5 Hi 00000100 8F 78 C00 EDIV #256, (SP)+, RO, RO : 
6140 7 00 F MOVAQ  (MAPENT)CROS, RO : 
0 43 RET ; 1109 
50 D4 Onee 2s: CLRL RO : 1111 
4 00046 RET F 


; Routine Size: 71 bytes, Routine Base: S$CODES + 0208 


LN 
vo 


LWK OB JPASS2 1b-se =3007 138% 90:]?: $ AX-11 Bliss-32 v4.0 


p 1 
14-Sep-1 LINKER. SRC JLNKOBJPS2. B82: 1 a9 43), 


: 4 1118 1 fous ine push (value, psectnum, posdeplvl) = 

: 34 Sih © cities coctnen tepctrenil tvs 

; N L N HE PUSHING OF VALUES ON THE LINKER 

: 4 1118 : INTERNAL STACKS. INPUT PARAMETERS ARE: — 

3 44 111 VALUE VALUE TO BE PLACED oS STACK 

; 45 1333 } PSECTNUM = THE MODULE RELATIVE P=SECTION INDEX TO 

; +8 111 WHICH THE STACKED VALUE IS RELATIVE 

: re 1 Y POSDEPLVL = THE POSITION DEPENDENCE LEVEL OF THE VALUE 

; 549 11 é NORMALLY = j FOR AN ADDRESS (E.G. A 

; 29 1 ? } 0 RELOCATED SYMBOL ) 

: 5 1125 ; IF PSECTNUM = =-1 THEN THE VALUE MS NOT TO BE RELATIVE TO A 

3 28 1126 : P-SECTION BASE ADDRESS. IF PSECTNUM IS NOT <1, THEN 

: 554 1127 ! THE OBJECT MODULE DESCRIPTOR is A ESSED TO DETERMINE IF a 

3 399 1128 : LE HAS SUCH A P-SECTION (FOUND ON PASS 1) AND TO COMPUTE 

: 338 1186 3 i IF THIS SUCCEEDS, THE VALUE STACKED 1S THE SUM OF THE MODULE ON 

i 338 1132 ! CONTRIBUTION BASE AND "VALUE" 

: 560 11 : IN ADDITION TO THE ABOVE CHECKS, THIS ROUTINE ALSO DETECTS STACK 

; 561 ise 3 | OVERFLOW. ON ANY FAILURE CONDITION, AN ERROR MESSAGE IS ISSUED 

: 206 113? AND THE VALUE ‘’FALSE*’ IS RETURNED. 

: 564 1137 ! THERE ARE TWO PARALLEL STACKS = ONE FOR yt ee AS DRIVEN 

3 365 1138 : BY THE COMPILER GENERATED OBJECT LANGUAGE AND THE OTHER 

: 566 1139 : CALLED THE PDL STACK, FOR LINKER COMPUTATION OF POSITION 

; 567 1140 } DEPENDENCE AND COERCION OF PIC IMAGES. THE COMPUTATION 

: 208 432) STACK IS LONGWORD ALIGNED WHILE THE PDL STACK IS A BYTE STACK. 

: 570 1103 local 

. or 1144 psctmap : ref blockC,bytel, ' POINTER TO PSECT MAPPING TABLE ENT 

; 276 1145 modcontri base, ' BASE OF THIS MODULES CONTRIBUTION "0 P-SECTION 
s 6ST, 1146 psectdesc : ref blockl bytel, ! P-SECTION DESCRIPTOR POINTER 

: ie Nee ; modpscontriblk : ref blockC, byte); ! POINTER TO DESCRIPTOR OF CONTRIBUTION 

: 576 1149 2 if .psectnum egl -1 ! MODULE BASE OF P-SECTIO 

s Sfr 1150 then (modcontribase = 0; psectdesc = 0) ' IS ZERO IF NOT T PoseCT RELATIVE 
; 578 1151 else begin ' VALUE. IF IT IS 

; 579 1136 if .psectnum gtru .obmodescComd$w_hipsct] i RELATIVE, CHECK P=SECTION 

; 580 115 then return report_udefpsc(. prectaunls 

; 25) 1138 1 ype lg meni -psectnum ! GET MAPPING TABLE ENTRY 

; 28 1156 “or he o = :psctmapCpats| . pscdes}) eql 0 | GET P-SECTION DESCRIPTOR 

3; «6584 1157 or (modpscontribl -psctmap parst pedcens) eql 0 ! AND MODULE CONTRIBUTION BLOCK 
; 585 1158 then return report_udefpsc(.psect nua) 3 

: 586 1159 modcontribase = .psectdesc(psc$l_base] + ! THE MODULE'S BASE IS 

: aH 1199 modpsctntrrolktaecSt. offset]; ' P-SECT BASE PLUS OFFSET. 

: 589 1168 if .stackpointer eql 0 ! NOW CHECK IF ALREADY 
; 590 116 then begin i AT BOTTOM OF STACK AND 
: a3) Be signal (Lin$_ antathey v5 -85kSc siz ' IF SO ISSUE ERROR MESSAGE 
; 298 1166 em ty cLond§b naan | aes 

3 594 1167 return false; 

s $95 1168 end; 


Hn 6 | 
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3 11 
: 38 118 stackpointer = .stackpointer -1; ' DECREMENT POINTER 
; 598 117 pert ge »Stackpo ater? = .value + -modcontribase; ' PUSH VALUE ONTO COMPUTE STACK 
; 599 117 pdistackl.stackpointer) = ,posdeplvl; ' AND ON P ACK. 
; 600 117 psectstack -stackpointer 0) = opeec teen: ' SAVE PSECT DESCRIPTOR ADDRESS AND 
; 601 1174 psectstack Stechpeleter .1 = ,modcontr base: ' MODULE'S BASE ON THE PSECT STACK 
3 ret 1175 shrsymstackl.stac pointer] = Cif .sshrim sym neq 0 !' SAVE AWAY SHR IMG SYMBOL INFO 
; 60 1178 then .shrimgsym 
; 604 117 else .shrsymexpr); 
; 605 1373 stapxstack(€.stackpointer] = .stapx; 
; 606 117 flagstack(.stackpointer] = .flags; 
; 607 BY + return true; ' AND RETURN SUCCESS. 
; 608 1181 end; 
007C 00000 PUSH: «WORD Save R2,R3,R4,R5,R6 3 1112 
56 00000000" EF 9€ 00002 MOVAB STACKPOINTER, R6 3 
53 08 AC D0 00009 MOVL PSECTNUM, R3 3 1149 
FFFFFFFF 8F 53 D1 00000 CMPL R3, #1 : 
04 12 00014 BNEQ 1$ : 
54 7C 00016 CLRO PSECTDESC 3; 1150 
2F 11 00018 BRB 4$ é 
50 EF A6 DO OOOIA 1$ MOVL OBMODESC, RO : 1152 
53 12 Ao 10 00 ED QOOI1E CMPZV) #0, #16, 18(RO), R3 : 
15 1F 00024 BLSSU 2$ $ 
53 DD 00026 PUSHL R3 : 1154 
8D AF 01 FB 00028 CALLS #1, FNDPSCMAPENT : 
50 D5 0002C TSTL PSCTMAP + 1155 
0B 13 O002E BEQL 3 
54 60 0 000 ° MOVL (PSCTMAP), PSECTDESC 3: 1156 
06 13 0003 BEQL 3 
52 04 Ad 08 te MOVL 4(PSCTMAP), MODPSCONTRIBLK s 1157 
08 12 00039 BNEQ 3$ 3 
53 DD 00038 2$ PUSHL R3 ; 1158 
FE10 CF 01 fe 80828 cms #1, REPORT_UDEFPSC : 
55 18 AS 08 A2 (C1 irk: 3$ ADDL3 8(MODPSCONTRIBLK), 24(PSECTDESC), - : 1160 
MODCONTRIBASE é 
66 95 00049 4$ TSTB STACKPOINTER : 1162 
20 12 00048 BNEQ 5$ : 
7E 00000000G 00 14 C1 pee ADDL #00. LNKSGL_CURFIL, -(SP) : 1166 
7E EF A6 28 C1 Bae ADDL #40. OBMODESC, -(SP) 3: 1165 
19 DD OOOSA PUSHL #25 ; 1166 
3 DD 0005C PUSHL @# 3 
00000000G 8F DD O00SE PUSHL Sard INTSTKOV 3 
00000000G 00 5 FB es CALLS #5, LIBSSIGNAL : 
44 11 68 BRB 7$ : 1167 
66 97 Boer 5$: DECB STACKPOINTER : 1170 
50 ¢ oA oor MOVZBL Mag] LF RO : 1171 
13 A640 4 BC4 43 88 § OVAB aVALUE BODCONTRIBASE COMPUSTACKCROJ 3 
77 A640 ¢ aC 3 7 MOVB = POSDEPLVL, PDL STACK r6) ; 1173 
0093 C64 F 7F PUSHAQ PSECTSTACKCR : 117 
9E 54 b0 es MOVL PSECTDESC, a(SP)+ ; 
0097 C640 7F 00087 PUSHAQ PSECTSTACK+4(RO) 3 1174 


LNK PASS2 244 AX-11 Bliss-32 v4.0 3 
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; 
} 
| 
| 
| 

MODCONTRIBASE, @(SP)+ , | 


9 : 
2f SHRI MGSYM + 1175 
51 SHRSYMEXPR 7h : 1177 
15B C64 ACKERO] + 1175 
1BF (C64 stip. RSME TAC ACK RQ] : 1178 
1DB C64 BLAGS FLAGSTACKLRO : 117 
5 wi, RO : 1180 
RO + 1181 


; Routine Size: 180 bytes, Routine Base: S$CODE$ + 024F 


; Routine Size: 91 bytes, Routine Base: S$CODE$ + 0303 


; 610 11 1 routine pop (valueaddr, pdladdr) = | 
ie ore thee 
3 gig 1185 ! THIS ROUTINE REMOVES VALUES FROM THE INTERNAL STACKS 
3; 6146 11 § ! OF THE LINKER AS DESCRIBED WITH ‘'PUSH"' ABOVE. 
; 615 11 ' STACK OVERFLOW CAUSES THE ISSUANCE OF AN ERROR 
; oi8 BP +3 MESSAGE AND RETURN VALUE OF FALSE. 
; 618 1190 if .stackpointer gequ stk$c_size 
: 619 1191 then begin 
: 620 1136 shiedaichinhiene atin” a toes bl ' IF STACK IS ALREADY 
; 621 119 obmodesc ondee nealing) ! EMPTY, ISSUE ERROR AND QUIT 
: 6 ‘ 1194 ink$gl_curfill¥db$q_filename)); 
s 6 1195 return false; 
; 626 1196 end; 
; 625 1197 -valueaddr = .compustack C.stackpointer]; ' POP VALUE 
: 626 1198 -pdladdr = ,pdlstack esSpechpolnter 2; ' AND PDL TO WHERE CALLER WANTS THEM 
; 627 1199 shrimgsym = .shrsymstack ([.stackpointer]; ! RESTORE SHR IMG SYMBOL INFO 
: 628 1200 stapx = .stapxstack C.stackpointer); 
; o6r 1201 flags = .flagstack C.stackpointer); 
; 6 1 oe stackpointer = .stackpointer + 1; 
; 631 120 return true; ' UPDATE POINTER AND 
; 632 1206 1 end; ' SUCCESS 
0004 00000 POP -WORD Save R2 3; 1182 
38 00000000" EF 9€& 00002 MOVAB STACKPOINTER, R2 3 
1 $8 91 00009 CMPB STACKPOINTER, #25 ; 1190 
2 1F QO000C BLSS 1$ é 
7E 00000000G 00 14 C1 QOO0E ADDL #20, LNKSGL_CURFIL, -(SP) 3 1194 
7E EF A2 28 C1 00016 ADDL #40, OBMODESC, -(SP) 3 1193 
19 DD 0001B PUSHL 5 3 1194 
03 DD 00010 PUSHL t 3 
00000000G 8F DD OOOTF PUSHL Saar INTSTKUN : 
000000006 00 F FB 00025 CALLS #5, LIBSSIGNAL ; 
A 11 0002C BRB 2$ 3 1195 
50 62 9A OOO2ZE 1$ MOVZBL STACKPOINTER, RO 3 1197 
06 BC 3 A240 D0 00031 MOVL  COMPUSTACKCROJ, @VALUEADDR : 
08 BC 77 A260 9A 00037 MOVZBL PDLSTACK RO} @PDLA : 1198 
E7 A 0158 C240 DO 00030 MOVL § SHRSYMSTACK RO}, SHRIMGSYM > 1199 
FF A Hod C ' 28 ee MOVB STAPXSTACKCROJ, STAPX s 1590 
OF A 1DB C24 8 38 MOVW FLAGSTACKCRO), FLAGS : 1201 
g¢ 8 005 INCB STACKPOINTER : 1508 
50 1 B 0054 MOVL #1, RO : 120 
4 00057 RET : 
50 D4 00058 2$ CLRL RO : 1204 
04 OO0SA RET 3 | 
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. .F | 
LINK _OBJPASS2 16-Sep-1984 00:17:44 AX-11 Bliss=-32 V4.0-74 Page 25 
y04=000 1e-Sep-19 4 HE LINKER SRe wcosJPs2. B42: athe 
; 6 1205 1 routine compare_lit (value, node) = 
3 ? 5 : $ beg n 
: 6 08 i COMPARE A VALUE WITH CURRENT NODE 
: 6 1210 2 map 
: ony : 1} node : ref block(, byte); 
: org 1 i§ return (.value - .node[lit$b_index]) 
; 64 1214 1 end; 
| 
0000 00000 COMPARE_LIT: | 
-WORD Save nothing : 1205 
50 08 AC 00 00002 MOVL + 1213 
50 0B AO 9A 00006 MOVZBL 11(R6), RO : 
50 04 AC 50 C3 0000A SUBL3 RO, VALUE, RO ; 
04 0000F RET + 1214 


; Routine Size: 16 bytes, Routine Base: S$CODE$ + 035E 


D7 
vou=00 1e=Sep-1986 19:40:38 EC TnmeneSReSinKoBsbS2.682;1 Page 483 


; oh? 1215 1] rout ine alloc lit (value, retadr) = ° 
; § 1 18 begin ; 
; 64 121 : ° 
> 648 121 ! ALLOCATE A NEW LIT BLOCK : 
> 649 121 : ‘ 
; 650 1 map ; 
; ° 1 ! 1 retadr : ref vector(,long); : 
; 638 ! 5 ink$alloblk(Lit$c_size, retadr(0]); : 
; 655 1225 return true : 
; 656 1226 end; ‘ 
0000 00000 ALLOC_LIT: : 

.W Save nothing : 1215 : 

08 AC DD 0000 PUSHL RETADR > 1223 : 

18 0D 0000 PUSHL #24 : : 

000000006 00 O02 FB 00007 CALLS #2, LNKSALLOBLK : ‘ 

50 01 00 0000E MOVL #1, RO : 1225 ; 

04 00011 RET i 1226 : 


; Routine Size: 18 bytes, Routine Base: S$CODE$S + 036E 
| 
| 
| 
| 
| 


7 
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04 12-8 08-19ke 901048 CLINKER. SRC LNKOBJPS2. B82: 31 

; $08 1227 1 routine stackcommand : tir_proc = 
3; ¢ 1 8 begin 
; 660 1 ' 
3 223 ; ? ' PROCESS TIR STACK COMMANDS 
; $8 1 § external reg teter 
; 664 1 commandtype = 11 t byte 
; 665 1234 commandata = 10 : ref block{,bytel, 
; $6 1255 datalng = 9; 
; 66 1 § 
; 668 1 local 
; 669 1238 argnum ' INDEX TO ARGUMENT TO BE CHECKED 
; 670 1239 argdesc : ref block(,bytel, ' POINTER TO ARGUMENT DESCRIPTOR 
3 er) 1240 psectnum ! P=SECTION NUMBER 
; 67 1241 symdscnam : ref block(,bytel, ! PTR TO NAME BLOCK PART 
; 67 1 g symdesc : ref blockt. byte], ' SYMBOL DESCRIPTOR POINTER 
: 674 124 envdesc : ref block(,byteJl, ' POINTER TO ENVIRONMENT DESCRIPTOR 
: of? : te value; ! TEMP VALUE HOLDER 
3 677 1246 dataing = .stkdatingtbl£.commandtype); ! GET EXPECTED DATA LENGTH 
; 678 1247 if (comendatetsiened byte] + ;datalng) gtru .endrecaddr! AND CHECK THAT IT EXISTS 
; 679 1248 then return report_tirling() 
; 680 1249 ps sectnum = -1; ! NOT P=SECTION RELATIVE 
: ret : 9 ; hrimgsym = tlags = pdl = value = stapx = 0; ! AND NOT SHAREABLE IMAGE SYMBOL/PSECT 
; ret 1358 DISPATCH ON THE COMMAND TYPE 
; 685 1582 case -commandtype from 0 to tir$c_maxstacod 
; 686 1$2? of set 
; 687 1256 at iese _Sta_gbl, ! STACK GLOBAL SYMBOL 
; 688 \$2f ir$c_Sta ~epm ! ENTRY POINT MASK 
; oe 1$28 tirse~ 332- arg) : ' CHECK ARGUMENT 
; 691 1260 i = ,datalng+.commandatal(symboleng); ! UPDATE THE ACTUAL J edad OF THE DATA 
; 692 1261 if -commandt ype eql tirSc_sta_ckarg ! JF ARGUMENT CHECK COMMAND 
; 693 1668 4 then begin 
; 694 1265 5 argnum = .(commandata([symboleng] + 1 + ! FETCH THE more 
; 695 1264 4 -comnenaatal syaselgng)) <2. -8,0>; ! NUMBER AS AN UNSIGNED BYTE 
: 696 1265 4 argdesc = 2 + commandatalsymbol ona ' AND COMPUTE ADDRESS 
; 697 1266 4 -commandata(symboleng]; |! WITHIN RECORD 
3 o08 1368 4 —s -datalng + .argdesclarg$b_bytecnt); ! THEN UPDATE DATA COUNT 
; 700 1269 if (commandetalsyaboleng) +. + Sri gtru .endrecaddr ! CHECK IF DATA ALL PRESENT 
: 701 1s? then return report 
3; ff ¢ 1271 if -connandatal syabolefigi gt gtru “ayate. maxing ! CHECK SYMBOL NAME LENGTH 
; 70 1 % or .commandatalsymboleng] 
3: 704 127 then return report_ Tilasetne (conmendetelsyabolens?); 
s 705 1274 if not lnk$search(commandatalsymboleng],symdesc, symdscnam) ! GO LOOK UP SYMBOL 
: 706 1275 4 then begin 
; 707 1276 4 if .commandtype eql tirse _Sta_ckarg ' iF i FOUND 
; 708 1277 4 then value = true; ' DEFAULT IS 0 excel FOR CHECK ARG 
; 709 1278 4 neper Useundef (commandataLsymboleng]); ' REPORT REFERENCE TO UNDEF INDE SYMBOL 
; £10 ! 44 é tlags Flg$v_undef] = true; 
: ars 1 Hi 4 else “begin ' SYMBOL FOUND 
; i 1 Ht 4 bind ingcly syedescCayaSt cludsc] : block, byted: 
> 714 1 4 if .symdesclsym$v_shring) IF SYMBOL IS FROM A SHAREABLE IMAGE 
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AAA NAAI AAAI AAAI AAAI NIAAA AIA AAI AIA 


AAAI IWIN fPofny 


EAA AAAI IID EB PDT SSSI ES BS ES PUTT I SS BUTT BB BB PUT 


Sep-1 217: 
1-0-1938 99: 740: 
and .symdesc(sym$v_rel) ! 
and no “gyndes sym$v gret ! 
and not . “inkégt c lu$v spat eg 
one not gl_defclilclu$v_based) 


bmodesclomd 


Unk Sgt ctakdaf ccurtit image) = 
if sconnandtyee eql wines sta_epm ! 
§ 


then if not . a eatnek3 i 
then signal(l siti ee ars ; 


false; 


gonsendet a synboleng? tenonedS sono maSet 


ink$gl_curfillfdb$q_ tilename]); 


if not swiengeest, def) 


“bes 
ttSost flgsv. undef] = tru 


report “useutidet (conmandataLsyrboleng)); ! AND REPORT ERROR IF NOT 


end; 
if sconmendiype eql tir$c_sta_gbl 
then begin 
value = -syadesc(syn6 | _ value); ! 
if so eee eg el)” 


= 
if 2. sym$v_ rel] 
or . symdesc[sym$v gref) 
then shrimgsym = Jsymdesc; ! 


gise if -commandtype eql tir$c_sta_epm ! 


then value = .symdesc(sym$w_entmsk]; 
if conmendt yee eql tir$c_sta_ckarg 
em, Sout } 


argvaldata = symdesc(sym$l_valdata] ! 


if .argvaldata 2 . 
then ya\ue - i 
(argvaldata(0} - 3) lssu .argnum 

then value = tru : 

else if vargvaldata(2+. argnum) 


then value = true; 
end; 
end; 


CtirSc ste » ey 
tirke. sta_lepm) 
egin 
° datalng = .datalng + ,commandatal |symboleng]; 
if (commandatallenvindex  ¢ tated gtru .endrecaddr 
then return report_tir — 
if -commendatet Leyppol ing) fu 
or .commandatal Usymboleng) 
then return repor 
if not Lnk$searchlocalTcommanda 


syasc maxing 


lsymboleng], 


43 AX-11 Bliss-32 V4.0-7 
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beg 
sToRal ctins. hogedret 3, sSOnpEnGOENE AENOLENGS, ! THEN TELL USER OF PROBLEM 
cur ‘tPrabsan 74 lenane), Lin$_noimgfil); 


(Lnaaingcommandatat|synboleng)); 


Page 435 


AND IS RELOCATABLE | 
BUT HAS NOT BEEN PUT IN SHR LST 


IF THIS IS STACK ENTRY +4 MASK 
THEN MAKE SURE sv ao Me S ONE 
ISSUE MESSAGE IF 


FIELD IN SYMBOL BLOCK WILL BE 0 
NOW CHECK WHAT WE FOUND WAS A DEF. 


GET SYMBOL VALUE IF a tote IS STACK GLOBA 
AND IF RELOCATABLE SET PDL = 1 


4 SYMBOL IS RELOCATABLE 
R FROM A SHARABLE IMAGE 
REMEMBER ADDRESS OF SYMBOL BLOCK 


FOR STACK ENTRY POINT MASK, MASK IS THE VA. 


CHECK ARGUMENT ... 
POINT TO Ho ie 


: Fef vector(, byte): ow’ DAT 


NES 
SET INDICATOR 
! IF NOT ENOUGH ARGS 
ALSO ASSUM 


' E MATCH 
' OTHERWISE COMPARE THE ARGUMENTS 
eql . -argdescLarg$v passnech 


D SET VALUE 


! COMPUTE Sits OF DATA NEEDED 
! ENSURE at THERE 

! AND RETURN WITH ERROR IF NOT 
! CHECK LENGTH OF SYMBOL NAME 


! LOOK UP THE SYMBOL 
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-commandatallenvindex], 
symdesc ,symdscnam,envdesc) 
then begin 


if .envdesc eql 0 ! SIGNAL UNDEFINED ENVIRONMENT IF TH 
or not .envdesc(nvd$v_def] 
then report_useudfenv(.envdesc,.commandatallenvindex]); 
report_useudflsy(commandata Lsymboleng)); 


Pane a8) 


en 
else begin 
if .envdesc eql 0 
or not .envdesc(nvd$v_def] 
then report useydfenyt .envdesc, .commandatal Lenvindex)) ; 
if not .symdescCsym$v_def 
then report_useud?lsy(commandatallsymboleng]); 
if .commandtype eql tirSc_sta_lepm 
then begin 
if not -syndesc( synSv_entast J 
then signal (Lin$_noe a.3.comngndatel | syabel eng) 
obmodescComd$b_namingJ, \nk$gl_curfill?db$q_filename)) 
else value = .symdesc(sym$w_entmsk]; 


! CHECK ENTRY MASK PRESENT IF STA_LE 


en 
else if .commandtype eql tir$c_sta_lsy 
then begin 
value = .symdesc(sym$l_value); 
if -syadesctsynsv_rel 
then pdl = 1; 
end; 
end; 
end; 
ta_sb] : 
value = .commandata[signed_byte); 
ta_sw] : 
ve ve = .commandata(signed_word]; 
a_lw) : 
value = .commandata[longword); 
ta_pb, 
a_pw 
a-pli : 
begin 


GET A SIGN EXTENDED BYTE 
GET SIGN EXTENDED WORD 
GET LONGWORD DATA 


cal 

cludesc : ref plockt -Byted. 
psctmap : ref block eyte: 
psctdesc : ref blockt, yted; 


pdl = 1; ' VALUE IS POSITION DEPENDENT 
psectnum = .commandata(psect_index]; ' EXTRACT PSECT NUMBER 
psctmap = fndpscmapent(.psectnum); ! GET DESCRIPTOR ADDRESS 
ie octane neq 0 
en begin 
psc tdesc = .psctmap(pmt$l_pscdes); ' GET PSECT DESCRIPTOR ADDRESS 
shrimgsym = -pegteents ' SAVE PSECT DESCRIPTOR ADDRESS 
cludesc = .psctdesc(psc$l_cludsc); ' POINT TO CLUSTER PSECT IS IN 
if -cludesc ctu v_shriag ' IF IT'S A SHAREABLE IMAGE CLUSTER 
or .ink$gl_ctUmskCink$v_shrJ ' OR CREATING SHR IMAGE 
then stapx = true ' REMEBER LAST COMMAND WAS STAPX 
else shrimgsym = 0; } T IF NOT, JUST FORGET IT 


H ! BU 
if scludesc&ctuse, shriag) i IF TARGET {S$ SHAREABLE IMAGE CLUSTER 


! IF STACKING LOCAL SYMBOL, GET SYMB 


| 


| 
j 
| 
j 
| 


| 


| 
| 


} 
| 
| 
| 
| 
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$3 


WARIO IIA BB BBB BBB BB III II I I I I II A 


and -Cludongtcluby posed) 1 WHICH IS BASED 
then pdl = 0; ! THEN IT'S NOT POSITION DEPENDENT 


en 
else return report _udefpsc(.psectnum) ; ! REPORT ERROR REFERENCING UNDEFINED PSECT 
case .commandtype from tir$c_sta_pb to tir$c_sta_pl 


of set 
Etir$c_sta_pb) : 


; 
5 
value = .commandata(psect_b_offset); ! GET A BYTE OFFSET 
CtirSc_sta_pw] : 
value = .commandata(psect_w_offset]; ! WORD OFFSET 
9 CtirSc_sta_pl) : 
? a value = .commandata(psect_l_offset]; ! LONGWORD OFFSET | 
a 
end; 
‘ Ctir$c_sta_wpb, ' STACK PSECT BASE PLUS OFFSET COMMA 
4 tirSc_sta_wow ! WHICH ALLOW A WORD OF PSECT NUMBER 
5 tirSc"sta-wpl) : 
$ begin 
se Local 
: cludesc : ref plockt byte ’ 
84 psctmap : ref blockl,byte 
Bey psctdesc : ref blockt, ytel; 
o26 pdl = 1; ! VALUE IS POSITION DEPENDENT 
85 psectnum = .commandatalwpsect_index]; ! EXTRACT PSECT NUMBER 
854 psctmap = fndpscmapent(.psectnum); ! GET DESCRIPTOR ADDRESS 
855 if .psctmap neq 0 
o28 then begin 
85 psctdesc = .psctmapCpmt$l_pscdesJ; GET PSECT DESCRIPTOR ADDRESS 
858 shrimgsym = opecteenss SAVE PSECT DESCRIPTOR ADDRESS | 
859 cludesc = .psctdesc(psc$l_cludscJ; SAVE CLUSTER ADDRESS 


IF IT'S A SHAREABLE IMAGE CLUSTER 
OR CREATING SHR IMAG 

REMEBER LAST COMMAND WAS STAPX 

BUT IF NOT, JUST FORGET IT 

IF TARGET {S$ SHAREABLE IMAGE CLUST 


f .cludesclclu$v_shrimg 
or .lnk$gl_ctUmskCink$v_shrJ 
then stapx = true 
else shrimgsym = 0; 

if .cludesc(clu$v_shrimg] 
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a a ee el ee a a ed 
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WMA WUBI UIANRIIIRINIUINIUNININ & = 3 20S 
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and .cludesc(clu$v_based] WHICH IS BASED 
4 then pdl = 0; ! THEN IT'S NOT POSITION DEPENDENT 
en 
else return report_udefpsc(.psectnum) ; ! NOT DEFINED, REPORT ERROR AND RETU 
B70 case ssonnandt ype from tir$c_sta_wpb to tir$c_sta_wpl 
of se 
71 4 CtirSc_sta_wpb) : 
7 4 value = .commandatalwpsect_b_offset]; ! GET A BYTE OFFSET 
7 4 Ctir$c_sta_wpw 
74 4 value = .commandatalwpsect_w_offset]; ! WORD OFFSET 
75 4 CtirSc_sta_wpl) : 
a 4 value = .commandatalwpsect_l_offset); ! LONGWORD OFFSET 
7 4 tes 
7 4 end; 
7 4 Ctir$c_sta_ub] : 
80 4 value = .commandatalunsigned_ byte); ! UNSIGNED BYTE 
$3) 5 Ctir$c_sta_uw] : 
¢ 5 value = .commandatalunsigned_word); ! UNSIGNED WORD 
5 Ctir$c_sta_lit]) : 
5 begin 
5 5 lacal 
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5 1455 Litindex; : 
: 1289 ; | 
H 16 8 ! GET THE INDEX. ENSURE THAT THE LITERAL ; 
3 14 ' HAS BEEN DEFINED. USE 0 IF NOT, AND ISSUE ‘ 
8 33 ioe A WARNING MESSAGE ° 
; 89 146 itindex = ndatalunsigned_byted; ‘ 
> 8% 1268 i} not “ink Sgt ti ttgste iieindexs” | : 
; 895 1464 then si patil n$_ statitud’, *6,.Litindex, : 
; 98 1465 - arecord obmod esc Londb namingJ, ‘ 
: 89 1466 beg nt tur fill fdb$q_filename]) : 
2 ee aa 7 
3 $ 1665 ? pay : ref block(,byte]; ; 
; $0 127% & if LibSlookup_tree(lnk$gl_litbl,.litindex, ! LOOKUP LITERAL IN TREE : 
; 90 1478 * compare_lit,entry) ; 
+ 906 147 then begin ; 
; 905 1474 pdl = .entryllit$v_pdl); ! RETRIEVE VALUES NEEDED ; 
3 906 1475 stapx = sentryl itty, stapx); 
; 90 1678 shrimgsym = .entryLl if t$l pshrsynd: 
; 908 147 shrsymexpr = ntry LitsT sgnrexord: 
3 +94 1678 value = entry Litgl _value 
; 911 1480 4 else orgnat st ae. ag theme 4 md ber pink | 
3 a 1481 4 "¢ crecordse obmodescLomd$b naming], 
3; be 4 ink$g Cur fill fdb$q_filename)); | 
: 1e84 7 | 
; end; 
; aig 1485 Cinrange) : | 
; 91 1058 return report_illtir2(); ! OTHERWISE IT°S ILLEGAL 
as te oo 
; 920 1489 A+ ala push (.value,.psectnum,.pdl) ! NOW PUSH THE VALUES AND RETURN 
: 921 1490 1 end; 
1€ BB 00000 STACKCOMMAND: | 
PUSHR #*M<R2,R3,R4> : 1227 
5 10 $3 gaene co : 126 | 
28 A MOVZBL C DTYPE, RO > 1246. 
2 FC73 CF40 9A Bebe pita STKDATLNGTBLCROJ, DATALNG : 
0 A 9 C1 00 ADDL DATALNG, COMM ° : 1247 
00000000" EF 0 D1 901 CMPL RO, ENDRECA ; 
1 =#1A 1 BGTRU : 
53 01 fF 1B MNEGL #1, PSECTNUM : 1249 
00000000' ff If CLRB = STAPX : 1250 
8 D4 CLRL VALUE ; 
00° EF D4 6 CLRL POL : 
4 CLRW FLAGS : 
. FF 4 CLRL SHRIMGSYM : 
; 9 4 F CASEB a. es #0, #19 > 1254) 
024C 024 024 002 03C 1$ - WORD $-1$,- : 
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PASS2 bse =1984 00:17: AX=11 Bliss-32 v4.0-74 Page 34. 
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1 4 LNI 
1 33 vo4 
1F 2 91 001¢B CMPB (RZ), #31 ; | >] 
84 1A 001C BGTRU $83 ; | : | 
2 93 1D TSTB (Re) > 1338) : 
A 12 0010 BNEQ 25 ; | 2 
¢ DD 0010 gf: PUSHL Re ; 1339 : 
FAE7 CF fe 106 23$: CALLS #1, REPORT_ILLNAMLNG ; ; 
0228 10B 24$: BRW 728 : .| 
E bo 1DE 25$:  PUSHL_ SP ; 1340 : 
08 AE 99F OO1E PUSHAB SYMDSCNAM : i] 
10 AE 3 O1E PUSHAB SYMDESC ; : | 
7E 6A 3C O01E6 MOVZWL (COMMANDATA), -(SP) ; 1341 : | 
; DD O19 PUSHL ; 1340 : | 
000000006 00 FB OO1E CALLS #3. LNKSSEARCHLOCAL 3 >] 
1¢ 0 E8 OO1F BLBS RO, 29$ : : 1 
50 6E DQ OO1F MOVL ENYDESC, RO 3 1344 : | 
04 13 001F8 BEQL 6$ ; : | 
A 10 a0 § O1FA BLBS 16(RO), 27$ 7 1345 : 1 
E GA C OO1FE 268 MOVZWL (COMMANDATA), (SP) ; 1346 :] 
0 DD 00201 PUSHL R : 3 | 
FB99 CF 0¢ FB 00 03 CALLS #2, REPORT_USEUDFENV j 2] 
DD 00208 27$ PUSHL ; 1347 = 
FBE6 CF 1 FB O020A CALLS #1, REPORT_USEUDFLSY ; : 
A 11 O020F 28$ ARS 38$ ; 1340 : 
50 6E 0 60 11 298 MOVL ENYDESC. RO ; 1350 :] 
04 13 00214 BEQL 0$ ; : | 
OA 10 Ad 58 00216 BLBS  16(RO), 31$ ; 1351 : 1 
7E 6A 3C OO2IA 308 MOVZWL (COMMANDATA), -(SP) ; 1352 31 
50 DD 0021D PUSHL RO : 31 
FB7D CF 02 FB O02IF CALLS #2, REPORT _USEUDFENV ; 31 
55 08 AE DO 00224 31$:  MOVL  SYMDESC, R5 ; 1353 $1 
07 OA AS 9} E0 99 8 BBS ‘i. 10(R5), 328 I sens : | 
FBC1 CF 01 FB 0022F CALLS #1, REPORT _USEUDFLSY : 21 
13 5B 91 00234 328: CMPB OMMANDTYPE, #19 3 1355 : 1 
2F \2 00237 BNEQ : 31 
0B AS 95 00239 TSTB =: 11. (RS) ; 1357 31 
23 19 0023C BLSS ; 31 
7E 000000006 00 14 C1 O023E ADDL3 #20, LNKSGL_CURFIL, -(SP) ; 1359 31 
7E 00000000' EF g8 C1 0046 ADDL3 #40, OBMODESC, = (SP) ; : 
08 DD 00 $0 PUSHL  # ; : 1 
000000006 8F DD 00 g PUSHL # INS NOEPM ; 31 
000000006 00 95 FB 0 : CALLS oe LIBSSIGNAL ; : 
58 08 sont i 6 9} 33$ ROVZUL Bis), VALUE : 1360 : 
11 88 1 00268 34$:  CMPB = COMMANDTYPE, #17 ; 1362 3 1 
rc 13 0268 BNEQ 84 F 3 | 
5 D0 00 $b MOVL  (R5), VALUE > 1364 : 
6 oa, A 3 EN " BBC #3, 10(R5), 388 > 1365 | 
00000000° EF 1 b9 7 MOVL #1, PDL > 1366 ; 
4 7C BRB 49 > 1254 a 
58 $A 98 i: 35$:  CVTBL (COMMANDATA) , VALUE ; 1371 ; 
4 1 BRB 4 ; a 
58 6A $¢ 36$:  CVTWL (COMMANDATA), VALUE ; 1373 3 | 
6F BRB 49 : a | 
58 6A DO 00288 37$:  MOVL = (COMMANDATA), VALUE ; 1375 ; 
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58 02 AA 00 A61$:  MOVL 2 (COMMANDATA) , VALUE ; 1445, 
08 11 BRB 5 + 1438 
58 A Hf f 638: MOV ZBL (COMMANDATA) , VALUE + 1449 
58 A 3¢ 0 f 48: MOV ZWL (COMMANDATA) , VALUE + 1451 
55 $A 9A O037A 66$: MOVZBL (COMMANDATA), LITINDEX + 146 
42 00000000' EF 5 a £0 C LITINDEX, LNKSGL_LITFLGS, 68$ + 146 
O¢ AE SF 0038 PUSHAB ENTRY + 1471 
FC cr OF : 88 PUSHAB COMPARE_LIT : 
5 DD C PUSHL LITINDE : | 
00000000" EF 9F 9 E PUSHAB LNKS$GL b1TBL : | 
000000006 00 4 FB CALLS #4, i LOOKUP_TREE 3 
¢9 0 £9 00398 BLBC =_-«RO,. «68S : 
0 0c aE DO 00 H MOVL ENTRY, RO + 1474 
00000000" EF OA Ad 07 00 EF 99 A EXTZV 40, #?, 10(RO), PDL : 
51 0A AO 01 07 EF OO3AC EXTZV #7. #1. 10(RO). R1 + 1475 
00000000" EF 1 90 00382 MOVB R1, STAPX ; 
00000000' EF 0C AO 7D 00389 MOVa Weird), SHRIMGSYM + 1476 
& 14 AO DO 003C1 MOVL 3 (RO), VALUE : 1478 
30 11 003C5 67$: BRB 1$ + 1471 
7E 000000006 00 14 C1 003C7 68$: ADDL3 #20, LNKSGL_CURFIL, -(SP) + 1482 
7E 00000000' EF 28 C1 OO3CF ADDL3 #40. OBMODESC, -(SP) + 1481 
000000006 00 DD 00307 PUSHL LNK$GL_RECORD + 1482 
55 DD 00300 PUSHL TIND ; 
04 DD 003DF PUSHL ; 
000000006 1 8F DD 003E1 PUSHL #LINS_STALITUDF ; 
000000006 00 06 FB 003E7 CALLS #6, LYIBSSIGNAL 3 
07 «11 OO3EE 69$: BRB 71$ : 1254 
FA66 CF 00 FB 003FO 70S: CALLS #0, REPORT_ILLTIRZ > 1486 
OF 11 003F5 BRB 72$ : 
00000000" EF DD 0O3F7 71$:  PUSHL PDL + 1489 
53 DD 003FD PUSHL PSECTNUM ; 
58 DD OO3FF PUSHL VALUE : 
FACS CF 03 FB 00401 CALLS #3, PUSH ; 
5E 10 CO 00406 72$:  ADDL2 #16, SP + 1490 
1C BA 00409 POPR #*M<R2,R3,R4> : 
05 00408 RSB : 


; Routine Size: 1036 bytes, Routine Base: $CODE$ + 0380 


<- 
ze 


ee ee ee ee ee Se SS | 


8 
LNK_OBJPASS2 1-se 1984 00:17:44 AX-11 Bliss-32 V4.0-74 Page 37 
y0e=000 14-Sep-19 4 3:40:48 LINKER. SRC ILNKOBJPS2.8 2;1 . 35 
; 923 1491} rout ine baseallimages = | : 
: 368 1498 § bein | ; 
. % § 1494 ! THIS ROUTINE ALLOCATES VIRTUAL ADDRESS SPACE FOR FIXUP SECTION AND | ; 
; 1oR2 ; BASES ALL PIC, NON-BASED SHAREABLE IMAGES ‘ 
; 929 1299 local ‘ 
; 930 1638 fixhdr : ref blockC,byteJ, : 
; 931 149 fixsize, ° 
-9 ¢ 1500 cluster : ref blockC,bytel, H 
3; 9g 1501 symsnb : ref block} .by I. ° 
$ 3 ¢ 1208 symbol : ref blockl,byteJ; ‘ 
3 9 1504 if not .lnk$gl_ctlmskClnk$v_lbased] ! IF WE HAVEN'T DONE THIS YET ; 
; 937 1505 then begin : 
; 938 1506 if .ink$gl_fixisd eg 0 ! IF NO FIXUP SECTION YET CREATED ; 
; 939 120f then Lnk$crefixisd(); . 
; 940 1508 fixhdr = (nk$gl_fixisdlisl$t_hdrisd); ' POINT TO PART BOUND FOR HEADER ° 
; 941 1509 fixhdrlisd$w poscnts = pon aes I tas iset; ! COMPUTE SIZE OF SECTION ‘ 
> 94 1510 ; if not Lnk$aTlovirmem(. fixhdrlisd$v_vpnj*9, ; 
3 94 1511 - fixhdrlisd$w_pagcnt)) : 
: 944 1216 o then begin : 
: 945 1513 4 signal (Lin$_insvirmem,2,.fixhdrCisd$w_pagcnt], 6 
; 946 1514 4 fixup_section, Lin$_notmgfil); : 
3 od 1313 4 ink$gl_ctlmskClnk$v_image] = false; | ° 
Py eng; | . 
3 344 aE : Lnk$gl_fixisdLisl$v_memalo] = true; ! FLAG FIXUP SECTION ALLOCATED ‘ 
3 83) 1319 } NOW FIND AND BASE ALL PIC NON-BASED SHAREABLE IMAGES | : 
; 988 1381 cluster = Lnk$gl_clulst; | ‘ 
: 9546 15 ; while (cluster = .cluster(clu$l_nxtclu]) neq 0 ; 
: 955 13s do if .cluster{clu$v_shrimg ; 
; 956 1524 and not .cluster€clu$v_based] : 
> 957 1525 4 then at be ; 
; 958 1526 4 Lnk$c luvirmem(.cluster); ! ALLOCATE VIRT MEMORY FOR THIS CLUSTER ‘ 
; 959 1527 4 ink$gw_shriscts = .lnk$gw_shriscts - ! DECREMENT NUMBER OF PIC SHAREABLE IMAGE ISECTS . 
: 960 1528 4 -cluster(clu$l_nisectsJ; ° 
; 961 1363 ; end; ° 
; 1530 if not .basedmsgout ‘ 
; 96 1531 4 then begin 
; 964 1336 4 basedmsgout = true; 
; 965 3 4 signal (lLin$_basduerrs); ! TELL USER HIS IMAGE JUST GOT NAILED DOWN 
; end; 
3 363 1336 [mkSo} ct Lmoks inkSv_ based? = true; ' FLAG WE HAVE BASED THE WORLD | 
; 968 1536 ink$gl_ctlmsk(lnk$v_picimg] = false; ! IMAGE IS NOT PIC ANY MORE 
; 969 1537 end; 
: 970 1538 2 return false | 
; 971 1539 end; ! OF BASEALLIMAGES 
007C 00000 BASEALLIMAGES: 
WORD 


56 00000000' EF 9 00002 MOVAB BASEDMSGOUT, R6 : 


Save R2,R3,R4,R5,R6 : 1491 | 
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LWE DBAPASS2 


: 973 1540 1 routine checkshrsym (symbolblock) = 

; are ; 44 begin < , 

; 3c8 1 rk : THIS ROUTINE CHECKS THAT THE SYMBOL POINTED TO BY SYMBOLBLOCK 

; oO 1544 : 1S NOT FROM A SHAREABLE IMAGE. IF IT IS, AN ERROR MESSAGE IS 

>; 978 1545 : ISSUED, SINCE THE SYMBOL WAS NOT REFERENCED POSITION INDEPENDENTLY. 
; 979 1 re : THEN, AN ATTEMPT 1S MADE TO ALLOCATE MEMORY FOR THE CLUSTER, SO THAT 
; 980 154 : THIS REFERENCE CAN BE RESOLVED. 

; 981 1548 : 

; oe8 1549 map 

: 98 1550 symbolblock : ref block, byte); 

; «984 132) 

; 985 1 § Local 

; 986 155 symsnb : ref block(,byteJ; 

; 987 1554 

; 988 1555 if ay + at neq 0 
; #989 1556 then begin 

; 990 1557 if not .stapx 

; «991 1558 and .symbolblock(sym$v_gref] 

: o36 1559 4 then begin 

; 99 1560 4 symsnb = .symbolblock - .symbolblock(Csym$b_naming] - snb$c_fxdlen; 
> 9946 1561 4 baseallimages(); 

; 995 1206 4 signal (Lin$’ shrsymref,5,symsnb(snb$b_naming]), 

; 9% 15635 4 LnkSgl_curps¢ {psc b naming). t. inkl Locn-.curpsectbase), 
; 997 1564 4 obmodesclLomd$b_namlng], ink$gl_curfill€ fdb$q_filename]); 

; 998 1565 4 return false 

; 999 1566 4 en 

: 1000 1567 ; else if tn oe 

; 1001 1568 and .symbolblock(psc$v_shrimg] 

3 1008 1569 4 then begin 

3; 100 1570 4 baseallimages(); 

3; 1004 1571 4 signal(Lin$ shrpscref 5 -eysbotoloch pers naming), 

: 1005 1378 4 ink$ \_curpsc(psc eT tigen L_locn=.curpsectbase), 
: 1006 1573 4 obmodescComd$b_namlng),(nk$gl_curfillfdb$q_filename)); 

; 1007 1574 & return false 

; 1008 1575 4 en 

3; 1009 1576 § end; 

; 1010 1577 

: 1011 1578 2 return true 

; 1012 1579 1 end; 


O1FC 00000 CHECKSHRSYM: 
- WORD 


Save R2.R3,R4,R5,R6,R7.RB : 1540 
58 90000000" FF 9€ 0000 MOVAB LNKSGL_CURPSC, RB : 
3 00000006 00 9€ 000 MOVAB LNKS$GL“LOCN, R7 : 
6 000000006 00 9€ 9019 MOVAB LNKSGL~CURFIL, R6 : 
55 FF 26 CF 9€E 0001 MOVAB BASEALCIMAGES, R5 5 
54 00000000' EF 9€ 0001 MOVAB STAPX, R4& : 
53 04 AC 00 000 MOVL  SYMBOLBLOCK, R3 : 1555 
66 1 0 BEQL 6 4$ : | 
20 o it Be OEP Boose ee pa APty ae, : 1388 
52 OF 8 BA 0031 MOVZBL 18tp ), Re : 1560 


a 
LNK_OBJPASS2 ibese =1984 00:17:44 AX-11 Bliss -32 V4.0-7%4 Page 40 
rave ite 12-9 08- 1 384 90:10:84 LINKER. SRC} LNKOBJPS2.832;1 9° 18) 
52 52 ¢3 000 SUBL3 RZ, R3, R2 ; 
2 a8 3 3 sua ’ SYMSNB : 
6 0 Fe C CALLS #0, BASEALLIMAGES + 1561 
7E Be 2 ADDL3 = #20, LNKSGL CURFIL, =(SP) : 1564 
7E FO A 28 ¢ 4 ADDL3 @ DESC, p) : 
7E 67 ee 4 SUBL ern, LNKSGL =LOCn, -(SP) : 1563 
7E 8 20 : 4D ADDL3 = #45 EURPSC, =(SP) ; 
04 Ae F 51 PUSHAB + 1562 
DD 00054 PUSHL # + 1564 
009000006 F OD B28 PUSHL gL INS. SHRSYMREF : 
2 Bt donee 18 BLBC STAPK : 156 
29 OB OA 88 E1 0961 2$: BBC + 156 
65 00 FB 00066 CALL Ucn) a GES : 157 
7E 6s 14 C1 00069 ADDL is Oe LNKSGL «fun I -(SP) : 157 
7E FO AG 28 C1 0060 ADDL -(SP) ; 
7E 67 FC} =6—A4 «C3 000 : SUBL CURPSECTBASE LNKSGL =LOCN, -(SP) : 1572 
7E rs. 20 ci 007 ADDL LNK$GL_CURPSC, =(SP) ; 
2D AS 9F 00078 PUSHAB tetash + 1571 
05 DD oo7e PUSHL i : 1573) 
000000006 8F DD 000 PUSHL #LINS_SHRPSCREF : 
000000006 00 0” FB 00086 3$: CALLS #7, LYBSSIGNAL 3 
4 11 0008D BRB 5$ + 1574 
50 01 DO O008F 4s: MOVL #1, RO : 1578 
04 9009 RET ; 
50 D4 00093 S$: CLRL ~—_ RO : 1579 
04 00095 RET F 


; Routine Size: 150 bytes, Routine Base: S$CODE$ + 0848 


F 8 | 
LNK_OBJPASS2 16-Sep-1984 00:17:44 AX-11 Bliss-32 v4.0 Pp 41 Lh 
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; 19i9 1580 1 routine setaddressref (cludesc, isdesc, locn) = 
; : 1? : 1 begin 

; 1917 1 § ' THIS ROUT Ii STORES INFO NECESSARY FOR .ADDRESS FIXUPS. IT STORES THE 

3 3 ig 1584 ' LOCATION (GIVEN BY ARGUMENT LOCN) TO BE FIXED UP IN THE .ADDRESS FIXUP 
3 193 1585 ! INFO FOR THE GIVEN CLUSTER. 

; 1020 1 $ : 

H 8 1 : 5 INPUTS: 

3; 10 § 1589 : CLUDESC ADDRESS OF CLUSTER DESCRIPTOR FOR TARGET OF REFERENCE 

3: 1024 1590 : ISDESC ADDRESS OF ISECT DESCRIPTOR WHERE REF IS STORED 

3 19 5 1591 ! LOCN LOCATION OF REF 

3 7 8 1 35 : 
; 10 159 map | 
: 1028 1594 ciudesc : ref block(,byte), 

: 1029 1595 isdesc : ref blockl,byteJ; 

; 1030 1398 
: 1051 159 Local 
3; 10 ¢ 1398 adrblock : ref vector(,long); 
: 103 159 
: 1034 1600 nd 
; ID 193) lastblock = cludesc(clu$l_lstadri] : ref vectorl,long); 

3 1939 1808 adrblock = .lastb ' POINT AT CURRENT BLOCK 

; 1038 1604 if -cludescle Lust \sGrlett? eql 0 i IF BLOCK IS EMPTY 

3 en 

; 10460 1606 int alLobti ce Luse ee ene ' ALLOCATE mores BLOCK 

3 1041 1607 lLastb os = adr ' LINK INTO THE LIST 

; 1068 1608 op Ce tustt Lstadrl)- =" ,adrblock; ' MAKE IT THE NEW LAST BLOCK 
3 1046 1609 adrblock ' MAKE IT THE END OF THE LIST 

: Wee 1019 clydesctc lust parlett) = clu$Sc_adrblock-1; ! SET COUNT OF SLOTS LEFT IN BLOCK 

; H 43 1616 sdrbtockCctuse adrblock - tlasennte es. adrleftj] ! SET LOCATION IN BLOCK 

; 1048 1614 cludesc(clu$l_adrleft) =_.cludesc(clu$l_adrleft] -1; ! COUNT ONE LESS IN BLOCK 

; 1049 1615 f .cludesc(cTu$l_adrent) eql 0 ' IF THIS IS FIRST REF TO THIS CLUSTER 

; 1050 1218 then Ink$gl_sfiradr = -(nk$gl_shradr + 1; i THEN COUNT ANOTHER CLUSTER 

3; 1051 161 clugescCc lust ~adrent) = .cludesc€clu$l_adrcnt) + AF ' COUNT REF IN THIS CLUSTER 

3 1336 1618 gksgl. adrefs” - UnkSgl_. adrefs + 1; COUNT THE REFERENCE 

: 105 1619 sdesc neq 0 i ENSURE THERE IS AN ISECT 

3; 1054 1620 Ja begin 

; 1055 1621 in 

3 1238 16 § curhdrisd = isdesclisi$t ohdr ied) ! PART FOR HEADER 
; 193 16 : block(, byte); 

; 1058 1624 

; 1059 1625 if aoe ecurhdrisdlisdSv_ crf) ' SECTION MUST BE CRF 
: 1060 16 $ 4 then vo be 
; 1061 16 4 curhdrisdlisd$v_crfJ = true; ! MAKE IT CRF 
: 1068 16 8 4 if not -curhdr iSdC1sd$v wrt) 

3; 106 16 then begin 

3 1064 1630 ul sor isdl isdby wets = true; ! MAKE SECTION WRITEABLE 

3; 1065 1631 ink$gl_cur +1 SEE ee newort} = prt$Sc_ur; ! TELL_IACT TO MAKE IT RO LATER 
3 1206 16 § ink$gi- curisdlisl$v_reprot] = true; ”! FLAG SECTION NEEDS REPROTECTING 
: + 16 ink$gl-rprotisd = .Tnk$gl_rprotisd + 1; ! COUNT THE REPROTECTION | 
. | 1634 4 end; 

: 1063 1635 3 end; 
; 1070 16 end; | 


; return true 
end; 
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; Routine Size: 138 bytes, Routine Base: 
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00000000" 
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QO0C 00000 SETADDRESSREF : 
«WORD 


a8 0006 
Se 90008 
D> 00000 
12 QO00F 
go 0011 
C 00013 
FB 00018 
DO OO0TF 
dO 00023 
D4 44 ? 
9A 0002A 
DO 0002E 
CE 00031 
DE 00034 
D ait 
Dd it F 
DS 00041 
12 00044 
D6 00046 
D6 0004C 
D6 O004F 
DS 00055 
1 44 F544 
C1 OO05A 
f° 4 5H 
8 00064 
3 0068 
pogo 

3 0071 
0078 

88 0007C 
D6 00080 
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14-Sep-19 LINKER. SRC JLNKOBJPS2.852;1 (20 
; 1075 1640 1 routine compare_spcr (value,node) | 
fl Beacat 1G | pheneenceeed opener 
24 78 16¢$ $ | COMPARE A VALUE WITH CURRENT NODE | 
4 aE | 
3 : 1 4 ris node : ref block(,byte); | 
; Sez 1ec8 ; 4 og (.value = .node[spcr$l_offset]) | 
0000 00000 COMPARE_SPCR: 
«WORD Save nothing : 1640 
50 08 aC 00 00002 MOVL NODE, R : 1648 
50 06 AC 0A Ad C3 00006 SUBL3 10(R0), VALUE, RO ; 
04 0000C RET 3 1649 


; Routine Size: 13 bytes, Routine Base: SCODES + 0968 
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; Routine Size: 52 bytes, Routine Base: S$CODE$ + 0978 


3 7 1 rout ine alloc_spcr (value,retadr) = ; 
: 133g bea : 
: | 1633 ¢ | ALLOCATE A NEW SPCR BLOCK : 
31 1655 ap : 
: ; $ retadr : ref vectorl,long); : 
; 1 16 8 local ‘ 
3 : 5 1923 entry : ref block(,byte); ° 
3 1 199) ink$a Lobik {spersc ize, onery): : ALLOCATE NEW BLOCK | ; 
3; 1 1 § entry spcrsl. offset) = ' SET OFFSET IN IMAGE ° 
:1 166 entrytsper $(7fixadr) = 1inkSgl_ Lastgadr: i SET FIXUP VECTOR VA : 
; 1100 1664 ink$gl_lastgadr = . Lnk$gl_lastgadr ! UPDATE VA FOR NEXT : 
3 1183 1665 ink$gi- seca ix = .ink$gl_Spcgfix + 1; ' COUNT ANOTHER SPECIAL FIXUP : 
; 1106 1908 retadr[ sentry; ! RETURN VALUE TO CALLER : 
3 1106 1668 return true ‘ 
3; 1105 1669 end; ’ 
: 

0004 00000 ALLOC_SPCR: : 

-WORD Save R2 ; 1650. : 

52 000000006 00 4 90008 MOV LNKSGL_LASTGADR, R2 ; : 

5E 4 C Boe SUBL a4, SP : : 

DD 0000C PUSH. ; 1661 : 

12 DO 44 PUSH: = #18 : ° 

000000006 00 02 FB 0001 CALLS #2, LNKSALLOBLK : ‘ 

50 6E 00 0001 MOVL ENTR 3 1662 : 

OA AO 04 AC 00 OOOIA MOVL VALUE . - 10(RO) : . 

OE A 62 DO OO01F MOVL LNKSGL_LASTGADR, 14(RO) : 1663 ° 

04 CO 00023 ADDL2 #4, LNRSGL_LASTGADR > 1664 : 

00000000' ff D6 00026 INCL UNKSGL SP PCOF FIX > 1665 ; 

08 0 00 0002C MOVL RO, @RETADR > 1666 : 

01 00 000 MOVL #1, RO ; 1668 ; 

04 000 RET > 1669 : 


| 
8 - Page 45 
=Sep- :17: AX=11 Bliss-32 V4.0-74 ag 
WESeoctgbe OB:25:4S UMAR Rats 8a"SRo, a 
| ; 
; 1107 ! r hee bag storecommand : tir_proc = 
: 1 167 external re ister 11 byte 
; 11 1892 connends ¥ = 10: ref block C,bytel, ; 
$111 18h dataing 29; ; 
: 111 : 
: 7 Local ' X INTO THE GROUP 3 
Ps 1678 stocadindex, i CORRECTED STORE VALUE } 
: 1116 167 Sorrectuatus. | ADDRESS OF OUTPUT STREAM | : 
240) 1680 outputeddr, | MASK COMPUTED 10 CORRECT THE 
TR UR $ Roun Toe baburinethar rHeuas : 
$1120 1688 paent meen hu | STORE REPEATED COUNTS 
: 1 2 16 5 eutputerrey’t vector (5, byte] ; ! OUTPUT DA 
714 16 : 
: bind ! LEAVE ONE BYTE FOR ADDRESSING MODE ; 
; 1158 1688 value = outputarray (1) ; LE S caeier enact eat : 
23 = tirSc_minstocod ; : : 
: i ; 189 sans om tame e poemeet |: H e.stocall inden eeecttSh, bytes! 3 ! GET OUTPUT BYTE COUNT 
; * st IF THIS IS A : 
: 1 16398 if t-eterectieet C.stocmdindex,stoct|$b_flags] I : 
: 1131 : 
i : 1636 fone ! REPEATED STORE, 
hen begin ! GET TOP OF STACK : 
1 4 1697 then 7, pop (repeatcount.pdl) oF vine UP ON ERROR ; 
: 11 1699 then return false ; aon as ; 
ae 170 lse Seecotanealt ai; ! NO REPEAT, SO e 
; 1139 1708 ; $ rivb ! IF THIS IS STOREPEATED IMMEDIATE VAR. NO. : 
: 1140 170 if .commandtype eql tir$c_sto_riv i PROCESS IT No Seti 
; 1102 1708 apes +t databytes = tirrec C.tiroffset+1] : vector C,byte] ; ! NAME THE D 
: ! GET THE OUTPUT BYTE COUNT : 
; 1 1707 ng eee ae PIGURE LENGTH OF RECORD NEEDED TO BE THERE ; 
; 1146 1709 -s & = stapx = shrsymexpr = 0 ; : 
1149 Fit & return (if (.outbytecount+databytes [1]) gtru .endrecaddr ! IF RECORD IS TOO SHORT 
; 1149 1712 4 then report tirlng ) t,databytes [1] ! OTHERWISE, RETURN, WRITING THE BYTES TO TH : 
1139 i2i§ d saneed sanaieasichat tt sep me tra 2 ‘ i THE NUMBER OF TIMES SPECIFIED 
a 1714 4 ° ; 
: 1133 1715 4 j 
AB Oe Ps 
! ATTEMPT TO GET : 
; 1156 1719 fF not pop (yatue pel) i VALUE TO BE STORED 
ey \7s9 : : ! IF POSITION-DEPENDENT ; 
1189 172¢ 3 if C.pdl neq 0 a oe 
: 1369 1724 & (not .stapx and (.shrimgsym neq 0) and .shrimgsym Csym$v_ ape a : 
; 116 1f62 8 tirSc_sto_picr ! AND COMMAND 
: 1188 1726 and .commandtype neq -Sto_ 
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and noes tne neq tirSc zt° idr ! OR STORE PIC DATA REFERERNCE ‘ 
a. not .ink ctlmsk Cink$v_Gbased) ! AND IMAGE NOT BASED BY USER | ° 

© Pree checkshrsym 5oehe Nagoya ! THEN CHECK CORRECTNESS OF REFERENCE . 

then value = (if not .stapx | : 

2 then. 1.che tageye Csym$l_value] + .absexpr) } 4 PEL ocates USE NEW VALUE ° 
FORGET THE REST OF THE EXPRN | : 

2 else 0 ies Me ‘ 
else if .pdl eqi 1 ! IF POS DEP LEVEL IS 1 : 

and tnkSgt_ ctlmsk Cink$v_shrJ ! AND CREATING SHR IMAGE e 

and not .ink$gl-ctimsk LokSy, gudazeds ° 

and .commandtype neq t Sc. sto_pirr . 

2 and (.commandtype |ssu tir t_sto_bd ! AND COMMAND IS NOT STORE DISPLACED ° 
or e 

2 scommandtype gtru tir$c_sto_ld ! OF BYTE, WORD, OR LONGWORD : 
4% then begin ‘ 
4 baseallimages () ; ! THEN BASE EVERYTHING ° 
4 signal (Lin$_nonpicref,4,\nk$gl guresc Cpsc$b_naming] i THEN THAT IS AN ERROR ‘ 
5 - ink$gl_ ocn= .curpsec tb ase ‘ 
4 sobmodesc Lomd$ bn ng] : 
? gtnkSgl_ curfil Taos. ilename] : 
end ; ; ‘ 

steps = shrimgsym = shrsymexpr = absexpr = 0 ; ' CLEAR OUT SHR IMG VARIABLES ; 

end ; é 

Y nbegins C.stocmdindex,stoct($b_flags] and stoctl$m_displ) neq 0 ! IF A DISPLACEMENT COMMAND ‘ 
en agin : 

Lo 3 

on “Pnksot ctlmsk (lnk$v_shr] ! then can’t have non-relocatable : 

and .ink$ t act task ink$v_picimg) i “references stored in pic im mages ; 

and not . ags Cflg$v_undet) ! (special case undefined syms = act Like no . 

then RE Lin$S_stdispic, 4, Ink$gl curpsc Cpsc$b_naming] : 

4 o(.ink$gl_locn - oturpert base ° 
,obmodesc ondsb en “a : 

inkSgl_ curfil Tabsq ilename) : 

F ' subtract current location counter aid : 

— = .value - .lnk$gl_locn - .outbytecount ; ! output byte count : 

end ; e 
lowestmbzbit = .storectitbl C.stocmdindex,stoct ($v_mbzbit) ; ! GET NUMBER OF LOWEST ; 
if f.seqrestt eet C.stocmdindex,stoct|$b_flags) ° 
stoctl$m_conmbz 3 

) neq ! BIT WHICH MUST BE ZERO : 

then if .value <. apopgotabab tt, .1,0> neq 0 ' IF A CONDITIONALLY MBZ . 
then lowestmbzbit = ' FIELD, SUPPRESS MBZ IF VALUE IS NEGATIVE : 

if .lowestmbzbit eql 0 ' IF THERE IS NOT AN MBZ FIELD : 
then” correctvalue = ,.value < O,min (32,8*.outbytecount),1> ' CORRECT VALUE IS SIGN EXTENSION : 
else begin ' OF THE FIELD TO BE WRITTE : 
abzmask = (1*.lowestmbzbit) -1 ; ' OTHERWISE, MASK VALUE TO GET CORRECT : 
correctvalue = .value and .mbzmask ; ! ONE : 


LNK PASS2 1b-se -1984 17:44 AX-11 Bliss-32 V4.0-74 Page 47, 
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+) | od | 
; } § if § f ie neq .correctvalue ! IF VALUE DOES NOT MATCH 

3 en begin 

; 1225 17 3 signal (Lin$_trunc, 4 ! NOT MATCH THE CORRECT VERSION 

3 1 $ 17 o [nkSpt .curpsc Cpsc$b_naming) 
3 3 1790 4 o(.lnk$gl_locn = .curpsectbase) ! ISSUE TRUNCATION ERROR 

: 1988 1791 vobmodesc” Conds naming | 
: 1 1736 oink$gl_curfil fabsq_ Lename) 
; 1230 179 -Lin$_tfuncdat, ! GIVING MODULE, PSECTION, 

> 1231 1794 »evalue, .correctvalue i OFFSET, THEN COMPUTED VALUE, 

i] 4 1795 - Lnk$gl_ioen i WRITTEN VALUE AND VIRTUAL ADDRESS 

[1 1799 value = .correctvalue ; ! GET THE CORRECT VALUE 

3 } 5 1038 end ; 

: 1 1800 2 if .commandtype eql tir$c_sto_vps ! STORE VARIABLE POSITION AND SIZE 

3 1 1801 then begin 

: 1239 1306 local vpspos, 

Be 1 oat 

: 1246 1805 datalng = : ; 

: 124 1806 if tirrec C.tiroffset+2] gtru .endrecaddr ! MUST HAVE TWO MORE BYTES FOR COMMAND 

> 1264 1807 !'% missing dot? 

: } re 1308 then return report_tiring () ; 

: 124 1810 vpspos = .tirrec C.tiroffset+1) ; ! GET POSITION 

; \se8 13) i = .tirrec C.tiroffset+2) ; ! AND SIZE 

: 1250 1818 3 if .vpspos+.vpssiz gequ 32 ! CHECK LEGAL 

; 1251 1814 4 or .vpspos+.vpssiz gtru ((.vpspos+8) /8*8) 

3 1 25 1815 4 then begin 

: 125 1ai8 4 signal (Lin$ ekg ot 4, .vpspos, .vpssiz 

3 1254 1817 4 ,obmodesc Comd$b nealng) 

3 1$¢? +t ? ink$gl_curfil Cfdb$q_filename) 

: 37 1820 4 return false 

: en , 

3; 1259 18 § else return Lnk$wrtimgbyts (1,.value,1,.vpspos,.vpssiz) ; 

: 1561 1834 mes 

: 126 1825 if .commandtype eql tirS$c_sto_pirr ! STORE POSITION INDEPENDENT RELATIVE REFERE 
3; 126 18 § then begin 

3 1264 \% local valyee, 
WBS mae 

: 126 1830 if not pop (vatue2, pdl2) ! POP THE RELATIVE LOCATION 

; ' $8 te then fone false ; ‘ ' BUT IF AN ERROR, GIVE UP 

; 1 70 § 4 if (.pdl2 neq 0 ! IF POS DEP VALUE 

3 or : 

3 : f : 5 ? (not .stapx and (.shrimgsym neq 0) and .shrimgsym Csym$v_gref)) 

5 1274 1 $ 3 and not .lnk$gl_ctlmsk Clnk$v_ubased] 

; 1275 1 $ 4 then begin 

3: 127 1 4 if not che wir (.shrimgsym) 

; 127 1840 5§ then valued = (if not .stapx 
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get topeys Csym$l_value] 


then 
eise 


) 
if .pdl2 eqt 1 
and elnk$gl_ctlmsk Clnk$v_shrJ 


else 


and not .lnk$gl_ctlmsk 
then begin 
baseallimages () ; 
signal (Lin$_nonpicref 4 
oink$gl_curpsce Epsc$b_naming] 
(. lnk$gl_locn=.curpsectbase) 
obmodesc Comd$ 
n 


Lnk$v_ubased] 


; b nealng 

sl k$gl_curfil Cfdb$q_filename] 
end ; 

end ; 


if .value2 eql -1 then value2 


= .lnk$gl_locn ; 
if .pdl neq then value = 
end ; 


value = .value2 ; 


-commandtype neq tir$c_sto_picr 


and .commandtype neq tir$c_sto pide 
then outputaddr = outputarray CJ 
else if .commandtype eql tirSc_sto_pidr 


then begin 

bind symclu = (if .stapx 
then shrimgsym posestciudse? 
gise shrimgsym Csym$l_cludsc] 


: ref block C,byte] ; 


outputaddr = outputarray (1) ; 
if .pdl neq 
and not .ink$gl_ctlmsk Clnk$v_dbgrec] 
then begin 
if begin 
if .lnk$gl_ctlmsk Clnk$v_shrJ 
then begin =. 
if .lnk$gl_ctlmsk Clnk$v_picimg] 
then begin : 
if .lnk$gl_curisd eql 0 
then true 
else begin 
bind 


-curhdrisd 


then begin 


baseallimages () 


signal (Lin$_adrwrtdat 
o inkS9) .furpsc 
o(.lnk$gl 


4 
Epsc$b_naming) 
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29° (93) 


BASE THE WORLD 


SUBSTITUTUE CURRENT LOC. FOR <1 
RELOCATE VALUE IF CALLED FOR. 
IF THIS IS NOT A STORE POS. IND. CODE OR D 


THEN SET THE OUTPUT POINTER 
IF A STORE PIC DATA REF 


NAME THE CLUSTER THAT REF. IS IN 


FOUR BYTES GO 

IF NON-PIC DATA REFERENCE 

AND NOT IN A DEBUG RECORD 

OTHERWISE IF CREATING A SHAREABLE IMAGE 
AND IT°S A PIC IMAGE 


IF NO ISECT 


curhdrisd = lnk$gl_curisd Cisl$t_hdrisd] : block C,byte] ; 


isd$v_wrt] 
and not .curhdrisd Cisd$v_crfJ : 


! IF SECTION IS WRITEABLE 
BUT NOT COPY ON REF (IE SHAREABLE 


' BASE THE WORLD 
! TELL USER IMAGE ABOUT .ADD 


ocn-.curpsectbase) 


,obmodesc’ Lomd$ 
ink$gl_curfil 


false 
end 


ing] 
Prdb$q. filename) 


N 
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vou=000 1e=8ep-1984 15:40:33 ER TNKER SRETNKOBsPS2 8251 9° (22) | 
| 

3 } 5 1838 else true 

; en 

3 3 ; 1900 end | 

3 7 3 1901 else ( not .lnk$gl_ctlmsk Cink$v_lbased ! IF NON-PIC, DON'T DO FIXUP IF WORL 

: 1 19 ¢ 7 and not .lnk$gl_ictlmsk [ink$v_ubased i OR IF BASED FOR ANY OTHER REASON ( 

; 1340 1905 9 and ( (.shrimgsym neq 0) ! IF THAT ISN'T TRUE, ONLY DO FIXUP 

3; 1341 1904 7 and not .symclu Cclu$v_based] ! TARGET CLUSTER IS NOT BASE 

; i ‘ 1908 6 end aes 

: 1344 1907 6 else ( -shrimgsym neq 0 ! EXECUTABLE IMAGE...DO ONLY IF REFE 

; 1345 1908 6 and .symclu neq ginedel cyretu ! 1S TO SYMBOL IN ANOTHER CLUSTER 

71 $ 1909 6 and -syaclu Cclu$v_shrimg ! THAT IS A SHAREABLE IMAGE 

31 1910 6 and not .symclu CcTu$v_based] ! AND IS NOT BAS 

3 : : ap ? P '% check that (,) removal maintained 

; en 

3 7 r+ 1918 : then begin 

3; 1351 1914 if not .stapx ! IF IT WAS NOT STA_PX 

: 1 26 1915 6 and (.shrimgsym neq 0) ! IE IT WAS STA GBC 

3; 135 1916 3 and (.shrsymexpr eql 0) ! AND NOT AN EXPRESSION 

3: 1354 1917 and .shrimgsym Csym$v_rel) ' OF A RELOCATABLE SYMBOL 

; 1355 1918 2 and .shrimgsym Csym$v_gref] ! FROM A SHAREABLE IMAGE 

s : 28 ba 2 then value = .shrimgsym Csym$l_offset] ; : THEN GET VALUE OF SHR IMG SYMBOL 

; } 4 1981 5 setaddressref (.symclu,.(nk$gl_curisd,.lnk$gl_locn) ; ! STORE FIXUP INFORMATION 

; 1366 1958 2 if .lnk$gl_ctlmsk Clnk$v_long] ! IF GETTING A FULL MAP 

3: 1361 1388 6 then begin ! THEN COUNT THE .ADDRESSES 

3; 136 1925 6 if .obmodesc Comd$l_adrcnt] eql 0 ! IF THIS IS FIRST .ADDRESS IN THIS 

3 leer 1926 7 then begin 

: 12 44 f local lastomd : ref block C,byte] ; 

: 1366 136p 7 ink$gl_nadromd = .lnk$gl_nadromd + 1 ; ! COUNT ANOTHER MODULE WITH .ADDRESS 

3 tt es Lastomd = .lnk$gl_omdadrend ; ! GET POINTER TO LAST MODULE IN LIST 

; 1369 1336 7 if .lastomd eql 0 ! IF NONE, THEN INSERT AT FRONT OF L 

: 1370 1933 7 then Lnk$gl_omdadrist = .obmodesc 

3 ft Ta I9ee 4 else Lastomd Comd$i_nxtadr] = .obmodesc;! OTHERWISE, INSERT AT END OF LIST 

; 1378 1339 z ink$gl_omdadrend = .obmodesc ; ! SET NEW END OF LIST 

; eng ; 

3; 1375 1938 6 obmodesc Comd$l_adrcnt] = .obmodesc Comd$l_adrcnt] + 1 ; ! COUNT THE .ADDRESS IN T 

3; 1376 1939 5 end ; 

3; 1377 1940 4 end ; 

3 1 A 1941 4 end 

: 137 1306 3 end 

: 1381 1944 “ | 

: 1386 1945 i PROCESS TIRSC_STO_PICR (STORE POS. IND. CODE REF) | 

We 18 ot 

: 1385 1948 4 bind symclu = (if .stapx ! NAME THE CLUSTER DESCRIPTOR 

s 3 1949 4 then shrimgsym Cpsc$l_cludsc 

3; 7 1950 4 else shrimgsym syett cludse | 

3 ' 3 132) ) : ref block C,bytel] ; 

: 1390 1988 outputaddr = outputarray (0) ; ' WE WILL BE SENDING A MODE BYTE ALSO 

3; 1591 1954 if .pdl eql 0 ! IF ABS. ADDRESSING 


7 
LNK_OBJPASS2 1B-sep-19 4 00:17:44 AX-11 Bliss-32 V4.0 Page | 
v06 e000 14-Sep-1984 t 93: 40:33 LINKER.SRC LNKOBJPS2. 5 2;1 ° 23) 
3; 139 1955 then outputarray [0] = absaddrmode ! THEN SET THAT 
3; 139 19 8 else 
> 1396 19 ! 
; 1395 1328 ! TARGET IS RELOCATABLE 
3: 1 195 : 
: 139 1960 4 begin 
3; 1598 1961 4 if .shrimgsym neq 0 ! IF TARGET IS IN A SHR IMAGE 
3; 1399 1396 4 and 
: 1400 19635 4 -symclu Cclu$v_shrimg] 
: 1401 1964 then’ begin | 
: 1408 1965 outputarray (0) = indpcreladdr ; ' USE *‘aL**’ MODE 
: 140 1966 -shrsymexpr neq 0 ! IF TARGET IS AN EXPRESSION 
3; 14046 1967 or .stapx ! OR A PSECT BASE + OFFSET 
: 1405 1968 6 then begin 
3: 1406 5 3 6 Local entry : ref block C,byte] ; 
3; 1407 1970 6 
3; 1408 1971 6 oyeeis Celu$l_sperist] eql 0 ! IF THIS IS FIRST ONE FOR THIS CLUSTER 
3 st 1376 ? ine nk$gl_spcgimgs = .lnk$gl_spcgimgs + 1 ; ! THEN COUNT ANOTHER SHR IMG 
3; 14611 1974 6 if LibSinsert_tree (symclu Celust epper tet ! INSERT INTO SPCR LIST FOR 
: 1216 1975 6 ,-value, ire ! TARGET CLUSTER 
3; 141 1378 6 -compare_sp-r 
3 1416 1977 6 alloc sper, entry 
: 1415 1978 6 
; 1416 1979 6 eql Lib$_normal ! AND IF IT WAS INSERTED (NOT ALREADY THERE) 
; 1417 1980 6 then setaddréssref (.symclu, 0 ! THEN SET A .ADDR FIXUP FOR THE LOC. IN FIX) 
: 1418 1981 a sentry “EsperSt_tixadr) | 
3; 1420 1983 6 value = .entry Cspcr$l_fixadr) 3 ! VALUE TO STORE IS VALUE IN FIXUP 
: 106) 1984 6 end ' (TARGET IS EXPR OR ze PX) 
3 14 ¢ 1985 5 end ! (TARGET IS IN SHR 
; 1257 1988 : else outputarray (0) = pcreladdrmode ; ! NOT SHR IMAGE USE Be RELATIVE 
; 1258 1988 4 value = .value-.ink$gl_locn = .outbytecount ; ' PC RELATIVE (SO COMPUTE DISPLACEMENT 
> 1426 1989 4 en ! (TARGET IS RELOCATABLE) 
3: 1427 1990 
3; 1428 1991 
3: 1429 16 shrimgsym = stapx = Logs = shrsymexpr = absexpr = 0 ; ' CLEAR FLAGS 
: ae bad, ¢ omen nk$Swrtimgbyts ( -outbytecount, .outputaddr,.repeatcount) 3! FINA rey OUTPUT BYTES 
: eng ; 


| 
| 
end ; | 
| 
| 
| 


52 DD 00000 STORECOMMAND: 
PUSH 


2 : 1670) 
5E 1¢ g2 000 SUBL #38. ; 
3 5B 9A 0000 HOV ZBL COMMAND TYPE, STOCMD INDEX > 1690 
0 14 ¢2 00008 SUBL {NDEX ; 
F659 CF4O 3F 000 PUSHAW STOReETL Tat Cs Tocmo INDEX : 1691 | 
55 9& 9a 0001 MOVZBL a(SP) TeyTe ; 
57 F650 CF4 : 001 MOVAW STOREC {TOL STOCRD INDEX), R? : 1693 | 
14 6 f 001 BLBC > 1696 | 
00000000" EF 9F 0 1 PUSHAB > 1698 
08 AE OF 08 PUSHAB REPEAT COUNT ; 
F92D OCF FB 000 CALLS #2, POP : 


04 


56 00000000' 


00000000" 


F8D5 


E9 0B 


D7 000000006 
FDD7 


50 00000000° 


15 


4F 000000006 
47 000000006 


07 30 
“ “ 1 
: 
EF 00000000° gf 
55 6 
59 01 aS 
44444 8 EF 
vetete jl EF 
50 1 A645 
EF 33 
0 
O1FE 
04 AE 
01 A6 
056A 
00000000" EF 
19 =A 
CF 0 
A8 5 
00000000" fF 
03 00000000" EF 
00c3 
00000000" ef 
50 00000000" EF 
AQ 06 
1¢ 5B 
E4 
1B 58 
DF 
00 03 
00000000" EF 
CF 01 
1D 50 
OE 00000000° EF 
FF 00000000" FE 
rf 
AE 50 
60 
01 00000000° fF 
‘Tae 
Ee a 
es 
19 8 
CF 0 
00 4 
EF 28 


wr 
PAM 
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a 
wr 
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ooooo 
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ABSEX 
10$ 


PDL, #1 
#2, LNKSGL_CTLMSK, 138 
aukNKSGLECTLMSK#3, 138 


O- "DOrVromMnrv@DWowe 
oO 
bad 


OOOO OMIM 9 $9 9 SS OMM NOM —O- OMS OWN - OM OOWOUW 9 OVNOOWOITN-—-oUWwn 
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, REPEATCOUNT 
MMANDTYPE, #41 


yee 


om 


8$ 
STAPX, 7$ 
14$ 
on 


SHRIMGSYM, RO 
#6, 11(ROS, 6$ 


COMMANDTYPE, #28 


6$ 
COMMANDTYPE, #27 


STAPX 


RO VALUE 
Ss 


C * Aepaailae ° 
NDTYPE, #23 
NDTYPE, #25 


C 
c 
#0, BASEALLIMAGES 
2 6. LNKS$GL_CURFIL, -(SP) 
#40, OBMODESC, 
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#3, LNKSGL_CTLMSK+3, 6$ 
SHRIMGSYM 
#1, CHECKSHRSYM 


9$ 
PR, @SHRIMGSYM, RO 


-(SP) 
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do 9 
LK _OBJPASS2 16-Sep-1984 00:17:44 AX-11 Bliss-32 V4.0-74 
yo42000 la-Sep- 3b 90:1: 3 LINKER. SRCJLNKOBJPS2.B32;1 
7E 00 00000000° EF C3 00125 SUBL3. CURPSECTBASE, LNKSGL_LOCN, -(SP) 
7E Mittdittciad EF ? % coate #45, LNK$GL_CURPSC, =(SP) 
000000006 8F DD 00138 PUSHL aL INS NONPI CREF 
000000006 00 6 FB 00141 CALLS #6, LYBS$SIGNAL 
909 90° EF b4 148 13$: CLAL SHRSYMEXPR 
0 .? 14e CLRO  ABSEXPR 
0000000‘ FF 94 001 CLRB = STAPX 
60 ? 1 €1 0015A 148: BBC #1, (R7), 16$ 
00000000° EF D3 15€ TSTL = POL 
6A 12 00164 BNEQ 15$ 
42 990000006 92 E1 0166 BBC #2, LNKSGL_CTLMSK, 15$ 
3a 000 G E1 1GE BBC #1, LNKSGL-CTLMSK+2, 15$ 
00000000" EF E8 00176 BLBS FLAGS. 15$ 
7E 000000006 00 16 (1 o170 ADDL3 #20, LNKS$GL_CURFIL, -(SP) 
7E 00000000' FF 28 C1 O18 ADDL3 #40, OBMODESC, -(SP) 
7E 000000006 60 00000000" EF ¢3 0018) SUBL3. CURPSECTBASE, LNK$GL_LOCN, -(SP) 
7E 00000000° EF dD C1 00199 ADDL3 #45, LNKSGL_CURPSC, =(SP) 
4 DD OOTA1 PUSHL #4 
000000006 8F DD 001A3 PUSHL #LINS$_STDISPIC 
000000006 00 06 FB OO01A9 CALLS #6, LYBSSIGNAL 
0 15 AE 000000006 9 C3 001B0 158: SUBL3 LNKS$GL_LOCN, VALUE, RO 
15 ar 50 55 ¢3 00189 SUBL3 OUTBYTECOUNT, RO, VALUE 
50 6 05 03 EF 001BE 16$: EXTZv #3, #5, (R7). LOWESTMBZBIT 
OA 47 08 E1 O01C BBC P 1 
51 15 AE 01 50 EF 001C7 EXTZV LOWESTMBZBIT, #1, VALUE, R1 
02 13 001CD BEQL 17$ 
50 D4 OOICF CLRL LOWESTMBZBIT 
50 DS 00101 17$ TSTL  LOWESTMBZBIT 
14 iF 00103 BNEQ 
50 55 03 78 00105 ASHL = #3, QUTBYTECOUNT., RO 
20 50 01 00109 CMPL = RO. #32 
03 15 0010¢ BLEG 
50 20 DO 001DE MOVL #32, RO 
56 15 AE 50 0 FE OO1E1 18$: EXTV #0, RO, VALUE, CORRECTVALUE 
OF 1 001E7 BRB 
50 01 0 78 001E9 19$:  ASHL LOWESTMBZBIT, #1, RO 
50 07 OO1ED DECL § MBZMASK 
56 50 D2 OO1EF MCOML MBZMASK, CORRECTVALUE 
56 15 AE 56 «CB OO1Fe BICL3 CORRECTVALUE, VALUE, CORRECTVALUE 
56 15 ag D1 Bate 208: CMPL VALUE, CORRECTVALUE 
49 13 OO1FB BEQL 
50 000000006 0 DO 001FD MOVL § LNKSGL_LOCN, RO 
DD 06 04 PUSHL 
6 DD PUSHL CORRECTVALUE 
1D AF DD 99 08 PUSHL VALUE 
0 DD 00208 PUSHL #3 
000000006 8F DD 00 Op PUSHL @# INS TRUNCDAT 
7E 000000006 00 16 (1 0 1 ADDL3 #20, CNKS$GL_CURFIL, -(SP) 
7E 00000000' EF 28 (1 18 ADDL3 #40, OBMODESC, -(SP) 
0 00000000' EF ¢3 00 SUBL3 CURPSECTBASE, RO, -(SP) 
7E 00000000" EF dD C1 00 ADDL3 #45, LNKSGL_CURPSC, -(SP) 
4 DD PUSHL #4 
000000006 8F DD PUSHL # INS TRUNC 
000000006 00 B FB 8 CALLS #11, CIBSSIGNAL 
1 AE 6 p 024 MOVL  CORRECTVALUE, VALUE 
2 B 91 00246 21$: CMPB § COMMANDTYPE, #32 


f—rwsFfouow nu 


Sawada 9 ot od 
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LNK_OBJPASS2 1$- $ep-1984 00:17:44 AX-11 Bliss-32 V4.0-7 Page 53) 
V06 hae ats ak ES ap ee th at ce 9 333 
3 49 BEQL : : 
59 0088 i af 228: Ov a5 LNG + 1805 
50 00000000" fF odD0000" FF ct $1 ADDL ploy TIRREC, RO ; 1806 ; 
00000000" éF § st 60 MPL RO. ENDRECADDR : ; 
1B 0026 BLEGU 24$ : ; 
F658 CCF 0 re 69 23$: CALLS #0, REPORT_TIRLNG + 1808 ; 
50 00000000° EF 00000000' EF 1 0 $f 24$: ADDL TIROFFSET TIRREC, RO + 1810 : 
0 1 AO 9A 0007 MOV ZBL 1(RO) POS : 
51 00000000' gf 000000 9° EF gi ADDL LIROF FSET TIRREC, R1 + 1811 
6 Al 9A MOV ZBL 2(R1) : 
57 5 36 C1 00 ADDL vPSSIg VWeebes, R7 + 1813 
20 57 D1 00294 CMPL R7, #32 : 
OF 1€ 00297 BGEQU 3 : 
51 08 Ad 9E 0 99 MOV (RO), R1 + 1814 
51 C6 00290 DIVL2 #8, RI : | 
51 : C4 00 AQ MULL2 #8. R1 : 
51 D1 002A CMPL —s R7. RI : 
26 1B 002A6 BLEQU 27 ; 
7E 000000006 00 14 C1 O002A8 258 ADDL3 #20, LNKSGL CURF IL -(SP) + 1818 
7E 00000000" EF 28 C1 00280 ADDL #40, OBMODESC, -(SP) + 1817 
0041 8F 6B 00 B8 PUSHR <RO,R6> + 1818 
04 DD 002B8C PUSHL a ; 
000000006 8F DD 002BE PUSHL aL INS ILLVPS F 
000000006 00 06 Fe 00 C4 CALLS LTB$SIGNAL : | 
0318 31 002CB 26$: BRW be + 1822 
0041 8F 8B 00 ce 7$:  PUSHR #*M<RO,R6> : 
01 DD 00 D PUSHL #1 : 
21 AE DD 00204 PUSHL VALUE : 
01 DD 00207 PUSHL #1 : | 
000000006 00 5 FB 00209 CALLS #5, LNKSWRTIMGBYTS : 
0308 31 OO2EO 28%: BRW 7§ ; 
2a 58 1 00 £3 29$:  CMPB OMMANDTYPE, #42 > 1825) 
03 13 E6 BEQL 0$ : 
00¢9 31 002£ BRW 8$ : 
08 AE 9F OO2EB 30$:  PUSHAB PDL2 > 1830 | 
10 AE 9F OO2EE PUSHAB VALUE2 : 
F661 =F : FB OO2F1 CALLS #2, POP : 
De E9 00 Fg BLBC =—s_-RO,_ 26 $ ; | 
08 AE DS O02F TSTL PDL2 : 1833. 
40 00000000" EF ER OOstE BLES STAPX. 348 1835 
iddtdai ef D ff TSTL SHRINGSYM : | 
8 13 00308 BEQL 4$ 3 
50 00000000" EF D : 0D MOVL SHRIMGS YM R : | 
3¢ 0B AO $ E1 14 BBC , 11(ROS, 348 ; | 
4 000000006 00 EO 00319 31%: BBS 5 LNKSGL “CTLMSK+3, 368 : 1837 
, 00000000° F ODD 1 PUSHL  SHRIM : 1839. 
FB73 1 F 7 CALLS #1, NECKSHRSYM ; 
0 € C LBS : | 
i 00 900 00' EF E F BLBS  STAPK, 32$ > 1840 | 
0 00" FF o¢ ROVL OSHRIAGSYM, RO > 1841 
3 D4 F 338: CLRL = RO > 1840. 
Oc AE 50 DO 00341 33$:  MOVL RO. VALUE2 : 


F 9 | 
LK _OBJPASS2 16-Sep-1984 00:17: AX-11 Bliss-32 V4.0-74 Page 54 
voe=000 180-198 13:40:83 EC Taner ’SReSiNcoBsPs2 B82: 903) 
4E 11 00345 3468: BRB 36$ : ’ 
01 08 a 12 it $8: one +t #1 3: 1844 : 
4 00006 £ 4 BBC #2, LNKSGL_CTLMSK, 36$ : 1845) ; 
i$ 000090006 8 G £0 3 BBS #3, LNKSGL-CTLMSK+3, 36$ + 1846 ; 
FA cr Fe CALLS #0. BASEALCIMAGES ; 1848 F 
7E 0 0 G6 60 14 ¢ & ADDL3 #26, LNKS$GL_CURFIL, -(SP) + 185 ; 
7E ‘ Ff 28 c A ADDL3 #40, OBMODESC, -(SP) : 1852. ; 
7E 0 00G 60 00000000" EF ¢ 2 SUBL3 CURPSECTBASE, LNKSGL_LOCN, -(SP) + 1851 ; 
7E 00000000' EF D Ci 0037E ADDL3 #45, LNKSGL_CURPSC, =(SP) : 1850 ; 
4 Dd 00 PUSHL #4 ; 1853) ; 
000000006 BF DD PUSHL aL INS NONPICREF : | 
000000006 00 6 FB E CALLS #6, LIBSSIGNAL : 
FRFFFFFF 8F 0c A >} 0390 36$: ones ALUE2, #-1 ; 1858 
OC AE 000000006 8 DO 0039F MOVL § LNKSGL_LOCN, VALUE2 : 
00000000' ai DS OO3A7 37$:  TSTL PDL + 1859 
5 13 003AD BEQL 38$ ; 
15 AE Oc AE § OO3AF SUBL2 VALUE2, VALUE : 
1¢ 58 91 003B4 38$:  CMPB  §_COMMANDTYPE, #28 : 1862 | 
Oc 13 00387 BEQL 40 : 
1B B 91 00389 CMPB § COMMANDTYPE, #27 + 1863 
07 13 003BC BEQL ; 
58 15 AE 9E Oaee MOVAB OUTPUTARRAY+1, OUTPUTADDR 3: 1864 
O1FC 31 003C2 39$: BRW 4$ : 
52 00000000" EF 9A 003¢ 40$:  MOVZBL STAPX, @2 + 1867 
51 00000000" EF DO 003¢C MOVL  SHRIMGSYM, R1 > 1868 | 
57 00000000" EF DO 00303 MOVL PDL, R : 1873 
1B 38 91 003A CMPB = COMMANDTYPE, #27 > 1865 
03 13 00300 BEQL 41$ ; 
0145 31 003DF BRW 54$ : 
06 52 €9 O03E2 41$:  BLBC 2, 42% > 1867 
50 24 Al SE O03E MOVAB 36iR1), RO : 1868 
04 11 00 £9 BRB 43$ : 
50 20. «Al oe O3EB 428: MOVAB 32(R1), RO + 1869 
56 50 00 OO3EF 43$: MOVL RO, R6 : 
58 15 Ag 9 99 F2 MOVAB OUFPUTARRAY +1, OUTPUTADDR : 187 
57 D5 003F6 TSTL OR : 187 
8 1 0038 BEQL 39 : 
C1 000000006 99 EB OO3FA BLBS § LNKSGL_CTLMSK+2, 39$ + 1874 
79 000000006 00 02 €1 00401 BBC #2, LNRSGL_CTLMSK, 47$ : 1877 
53 000000006 00 oi E1 00409 BBC #1. LNKSGL-CTLMSK+2, 45$ + 1879 
30 000000006 9 69 90411 MOVL  LNKSGL_CURTSD, RO ; 1881 | 
0 } 418 BNEG 44$ F 
0081 41A BRW 49$ ; 
50 18 CO 0041D 44$:  ADDL2 ues, RO > 1886 | 
79 08 Ad E1 004 9 BBC #3, 8(RO), 49$ + 1886 
74 08 Ad 1 £0 004 #1, 8(RO). > 1887 
F9B1 «CF 0 Fe 4A CALLS #0. BASEALLIMAGES + 1889 
7E 990000 06 0 14 C1 O04eF ADDL3 #20, LNKSGL_CURFIL, -(SP) > 1894 
7E EF 28 C1 00437 ADDL3 #40; OBMODESC, -(SP) : 1 93 
7E 600000 0G 00 00000000' EF C3 0043F SUBL3 CURPSECTBASE, LNKSGL_LOCN, =(SP) : 189 | 
7E 00000000' EF D Ci 0044 ADDL3 #45, LNKS$GL_CURPSC, =(SP) > 1891 | 
4 DD 004 PUSHL #4 : 1894 | 
000000006 BF DD 004 PUSHL aL INS ADRWRTDAT : 
000000006 00 6 A ly 8 CALLS #6, LYBSSIGNAL ; 
B 11 0046 BRB 46$ : 


, | 
LK _OBJPASS2 18-sep-19 4 00:17:44 AX-11 Bliss-32 V4.0-74 Page 55. 
rive itd 12-88-1382 90:10:84 LINKER. SRCIJLNKOBJPS2.852;1 . (233 
13 00006 4 £0 00464 45$: BBS #4, LNKSGL_CTLMSK+3, 46$ : 1901) 
OB soooo9bee 90 o3 age Ges 3: LWKSGLZETLMSKeS, 468 £1809 
HY 1 476 BEQL 48$ : | 
50 66 D0 0047 MOVL (R6), RO + 1904, 
iF 58 OA : 478 BLBC ©=_:«B(RO), 498 : 
013 1 0047F 46s: BRW 64$ : 
1 D3 482 47$:  TSTL RI : 1907 
Fo 1 4 BEQL 46$ : 
000000006 00 66 D1 04 CMPL (R6), LNKSGL_CURCLU + 1908 | 
5 5D +t Reagan ae + See : 1909 
£8 58 A 88 p0 7 2 BBC #2, 88(RO), 46$ : 
5 fe D0 049 MOVL (RO), R + 1910 
f 58 AO EB 0049A BLBS 88(RO), 46$ : 
4 00000000" EF E8 0496 49$: BLBS STAPX, 50$ + 1914 
00000000' cf i O4A3 stl SHRIMGSYM + 1915 
00000000' EF D OO4AD TSTL HRSYMEXPR + 1916 
4 if 0483 BNEQ $ : 
50 00000000' FF D 0048 MOVL §§ SHRIMGSYM, RO + 1917 
18 OA A 3 £1 0048¢ BBC #3, 10(ROS, 50$ ; 
50 00000000' cf DO 004C1 MOVL § SHRIMGSYM + 1918 
0c 0B Ad 6 €1 004C8 BBC #6, 11(ROS, 508 ; 
50 00000000" EF 09 904 ¢D MOVL § SHRIMGSYM, R + 1919 
15 AE 10 AO DO 00404 MOVL 16(RO), VALUE ; 
000000006 00 DD 00409 50$:  PUSHL LNKS$GL_LOCN + 1921 
000000006 00 DD O4DF PUSHL ENKSGL~CURISD : 
FAG9 =F 03 FB bode? CALLS #3, SETADDRESSREF ; 
8c 000000006 00 €9 OO4EC BLBC = LNKSGL_CTLMSK+1, 46$ + 1923 
S ovoomagy ko PE dase; «| TRNEgarggyst 0 be 
ag 12 004FD BNEQ $ ; 
00000000' EF Dé OO4FF INCL  LNKSGL_NADROMD + 1929 
51 00000000° , p 90505 move NKSGL~OMDADREND, LASTOMD F 1930 
00000000" EF : 0g a3 MOVL R { LNKSGL_OMDADRLST : 1938 
20 Al 33 DO 2] 51$: MOVL RO, 32¢LASTOMD) > 1934 
00000000" EF 50 00 00518 52$:  MOVL = RO. LNKSGL_OMDADREND ; 193 
24 Ad 06 00 $: INCL  36(RO) : 19 
1A 11 00 BRB 4 : 187 
06 5 9 54$:  BLBC Re 55$ : 1948 
24 «OA f A MOVAB (ri), RO + 1949 
06 «1 BRB $ 3 
50 20 Al 9€ 558: MOVAB (R1), RO > 1950 
58 14 AE 9 és: MOVAB OUTPUTARRAY,, OUTPUTADDR : 1953 
57 D TSTL = =R : 1954 
8 1 A BNEQ 58$ 3 
16 AE oF =oaBF 3 C MOVB #-97, OUTPUTARRAY : 1955 
007d 31 00541 578: BRwW 64$ ; 
51 p 44 58$:  TSTL Ri > 1961 
67 46 BEQL F 
56 D 4 MOVL (RO), R6 + 1963 
SF 58 AG a 4 3BC #2, 88(R6), 62% : 
14 AE E 5 MNEGB #1. OUTPUTARRAY : 1965 
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00000000' 5 f , Ist SHRSYMEXPR : 1966 : 
54 ; E ¢ BLBC }3=—-s«aR2, 638 t 1967 : 
£ 66 0 fF 59$:  MOVL (RO), R6 + 1971 : 
28 Mb 6 TSTL 40<R6) : ; 
0 6 BNEG 608 : : 
00000000" EF INCL _— LNKSGL_SPCGIMGS + 1972 : 
10 AE OF p 60$ PUSHAB ENTRY + 1974 ; 
FASB) OCFOS PUSHAB ALLOC_SPCR : : 
FAG CF OF 74 PUSHAB f PARE_SPCR 3 ; 
C AE p4 78 CLAL (SP) : 1975 : 
§ AE 9F 00578 PUSHAB 12(SP) : : 
AE po 3 PUSHL VALUE ; : 
8 Ab OF PUSHAB 40(R6) + 1974 : 
000000006 00 06 FB 3 CALLS #6, LIBSINSERT_TREE : F 
000000006 &F D1 CMPL = RO, #LIBS_NORMAL + 1979 ; 
10 if 05 BNEQ 61$ ; : 
50 10 AF D 09 MOVL ENTRY RO + 1981 ; 
OE ad 0D 6 98 PUSHL  14(ROS : ; 
7E 04 00598 CLRL. = (SP) + 1980 F 
36 DD 00590 PUSHL R6 ; : 
F991 —sCF 0 FB 059F CALLS #3, SETADDRESSREF ; : 
50 10 AE DO 00544 61%:  MOVL NtRY : 1983 pr 
15 AE OE AO DO 005a8 MOVL 14(ROS, VALUE : : 
04 11 005AD BRB + 1966 : 
16 AE 11 BE OOSAF 62s: MNE #17, OUTPUTARRAY + 1986 : 
50 15 AE 000000006 99 C 00985 63$: SUBL3 LNK$GL_LOCN, VALUE, RO + 1988 
15 AE C3 0058¢ SUBL3 OUTBYTECOUNT, RO, VALUE : 
0000000" EF 04 909¢1 64$ CLRL SHRSYMEXPR + 1992 
0000000° EF B4 05¢7 CLRW = FLAGS : 
00000000" EF 94 905¢ CLRB ss STAPX : 
00000000" EF 7C 0050 CLRQ ABSEXPR ; 
04 AE DD 960 PUSHL REPEATCOUNT + 1993 
58 DD 0050¢ PUSHL OUTPUTADDR ; 
55 DD O90E 65$:  PUSHL TBYTECOUNT ; 
000000006 00 0 Fs 0560 CALLS #3, LNKSWRTIMGBYTS : 
96 D4 O05E9 66$ CLRL + 1994 
SE 1¢ CO 005€B 67$ ADDL2 #28, SP ; 
04 a it 3 POPR #*M<R2> 3 
5 005F RSB : 
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routine operatecommand : tir_proc = 
begin 


: PROCESS OPERATE GROUP COMMANDS 


external regveter 
commandtype = 11 : Byte 
commandata = 10 : re blockl, byte, 
datalng = 9; 


builtin 
rot; 


local 


pockt -byte ° 

symdesc : ref block byte @ 

Syedecnan : ref block(,bytel, ' NAME PART OF BLOCK 
value 


valued, 
pdl2: 

if .commandtype eql tir$c_opr_nop 
then return true; 


if .commandtype eql tir$c_opr_redef ON COMMAND 
TREAM 


! IF THIS IS A _RE=DEFIN 
then begin ! FIRST VALIDATE THE Tl 
datalng = 1 + ,commandatalsymboleng); ! SET LENGTH OF DATA 
if (commandatatsymbolen J +.datalng) gtru .endrecaddr ! CHECK ALL THERE 
then return report_tirlng(); 
if -conmandatat synboefg] gtru Syese_pentng ! CHECK LENGTH OF SYMBOL NAME 
or .commandatalsymboleng] eq 
then return epners vA gnening ‘connendetaloyabotong)) 5 
if not .ink$gl_ctlmskC€Tnk$v_shr T IF NOT PRODUCING A SHAREABLE IMAGE 
then return true; ! FORGET IT 


if not lnk$search(c andatal symboleng],syndesc.symdscnam) ' LOOK IT UP 
or not .symdesclsym$v_def ' CHECK IT FOR A DEFINITION 


then begin ! AND ISSUE ERROR MESSAGE IF NOT 
neoors pogundet tcqusendoteteyabetengs); 
flags(flg$v_undef) = true ; 
— true ! AND FORGET IT 
end; 
if .symdesc(sym$v_redef) ! IF THE SYMBOL HAS A REDEF PENDING 
then begin 


signal(Lin$_alredef,5 pengendetehaeteies ) 
LnkSql_¢ rpsctpsc$b_naming], (. ink al lLocn=.curpsectbase), 


obmodesclomd$b_namlng], nk$gl_curfil€fdb$q_filename]); 

return true 

end: 
symdesclsym$l_newval] = .lnk$gl_locn; ! OTHERWISE SET ITS NEW VALUE 
symdesc synév_redet = true; ! SET REDEF PENDING 
symdesclsym$v_uni] = true: ! AND MAKE IT UNIVERSAL 
cludesc = .ink$gl_curpsc oegstcludecs ! GET POINTER TO CLUSTER DESCRIPTOR 
if .lnk$gl_curpscCpsc$v_rel ! IF CURRENT PSECT IS RELOCATABLE 

and not .clu escEclasy b sed] ' IN_A CLUSTER THAT IS NOT BASED 

then symdesc(sym$v_rerel] = true; ! THEN MAKE SURE THAT SYMBOL IS 


eu0GVW37——-——-—eee 
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3; 1491 ; if .ink$gl ctimabCinkSy mepoon) ! JF THERE WAS A RAP OPENED 
3 4 and not .ink$gi_ctlasklink$v_brief] ! AND IT_WAS NOT A BRIE 

3; 149 5 then erf$insr key UnkSa}  syeBl tat syndscnaalsnb$b naming], ! TELL CREF ABOUT NEW FLAGS 
3 1496 $ symdesc (Sym$\_valueJ,.symdesc(symSw_fiags)); 

3; 1495 return true 

; 148 8 end; ! THAT'S ALL FOR REDEF 

3; 149 ) first_abs = true; 

; 1498 0 f not pop(value,pdl) ! FOR ALL OTHERS, GET TOP VALUE FROM STACK 
3; 1499 1 then return false: 

3 3 $66 if .shringsym neq 

; : 1 397 ones ‘ 

: n 

3 3 i $8 first abs = false; 

; 1506 898 if not .stapx 

; 1505 ; and she 'ingsyal syasv.gret 

3 ; $9 +03 a and .shrimgsyml(sym$v_rel) 

; en 

; 1508 0 y 4 begin 

; 1509 071 4 value = .shrimgsym(sym$l_offset); 

; 1510 876 4 shrsymexpr = .shrimgsym; 

1813 OG pape 

3 end; 

; 1218 75 if .commandtype neq tir$c_opr_neg ! POP SECOND VALUE IF NOT NEGATE 
3 1514 076 and .commandtype neq fir$c_opr_com ! COMPLEMENT 

3; 1515 077 and .commandtype neq tir$c_opr_dflit ! OR DEFINE LITERAL 

3 1218 078 then begin 

3; 151 079 second_abs = true; 

; 1518 080 f not pop(value2,pdl2) ! GET SECOND VALUE IF A BINARY 
3; 1519 081 then return false; ! OPERATOR = ERROR IF NONE 
3 1 ee 9 -shrimgsym neq 0 ! IF FROM SHR IMG 

3 en 

3 39 ¢ 084 4 begin 

3 15 085 4 if .shrsymexpr nee 0 ! AND OTHER OPERAND WAS TOO 
3: 1526 086 4 then signal(Lin$ iUlshrxpr 5. ! THEN THAT IS AN ERROR 

: 1? 5 087 4 obmodescComd p naalng) ,ink$gl record, 

; 1526 088 4 ink$gl_curfilC€¥db$q_filename]): 

: 1527 089 4 if not .stapx ! IF STA_GBL 

3; 1528 090 4 and .shrimgsym(sym$v_gref] ! OF SHR IMG SYMBOL 

3; 1529 091 4 and .shrimgsym(sym$v_rel 

1834 098 saey OR 

3 egin 

3 13 § 094 vatue2 = .shrimgsym(sym$l_offset); ' THEN USE THE OFFSET 

3 13 095 ? shrsymexpr = .shrimgsym; ! AND REMEMBER THAT IT WAS 

3 end; 

3 1 5 099 & second_abs = false; 

3; 15 84 3 end; 

: 1338 190 — 

; 1539 101 2 if .shrsymexpr neq 0 ! IF ONE OPERAND IS FROM SHR IMG 
3; 1540 196 and .commandtype neq tir$c_opr_add ! ONLY ADD AND SUB ARE LEGAL 
3 136) 10 and Command ype neq tir ¢.9pr sub 

3 1 $§ 104 then signal (Lin$_illshropr,3,obmodesclomd$b pening). ! ANYTHING ELSE IS ERROR 

3 154 105 -ink$gl_record, Lnk$gl_curfillfdb$q_filename)); 

: 1368 : either_shr = not (.first_abs and .secdnd_abs); 

; 1346 1 3 ! DISPATCH ON COMMAND 

3; 154 1 ; 


Sz 
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IF THIS EXPRN IS PART OF A SHR IMG EXPRN 


14-Sep- 
ogee -commandtype from tir$c_opr_add to tir$c_maxoprcod 
EtirSe_opr_add) 
n 
if .either_shr 
then 
begin 
if .first_abs 
then 


absexpr = .absexpr + 
if .second_abs 
then 


absexpr = .absexpr + 
value = .value + .value2; 
pdl = .pdl + .pdl2; 
true 
end; 

Ctir$c_opr_sub] : 


n 
if .either_shr 
then 


begin 
if .first_abs 
then 
absexpr = .absexpr - 
if .second_abs 


then 
absexpr = .absexpr - 


end; 
value = .value2 - .value; 
pdl = .pdl2 - .pdl; 

true 


end; 
Ctir$c_opr_neg) : 
begin 


value = -.value; 
true 
end; 
Ctir$c_opr_com) : 
begin 
value = -1 - .value; 
true 


en 
Ctir$c_opr_mul) : 
begin 


value = .veiuet.value2; 
true 


end; 
Ctir$c_opr_div] : 
begin 
if .value neq 0 


! JF FIRST VALUE WAS A CONSTANT 
' ACCUMULATE IT 

value; 
' JF SECOND VALUE WAS A CONSTANT 
! ACCUMULATE IT 

.value2; 


! ADD THE TWO VALUES 
! AND THE TWO POS. DEP. LEVELS 


IF THIS EXPRN IS PART OF A SHR IMG EXPRN 


! JF FIRST VALUE WAS A CONSTANT 
! ACCUMULATE IT 
-value; 
' IF SECOND VALUE WAS A CONSTANT 
! ACCUMULATE IT 
-value2; 


! SUBTRACT THE VALUES AND 
! AND POSITION DEPENDENCE LEVELS 


: CHECK FOR DIVIDE BY ZERO 


then value = .value2/.value; 


true 

end; 
Ctir$c_opr_ior] : 
begin 


Page 23) 
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: 1605 167 value = .value or .value2; : 
3 198 true ; 
3 } 1 end; . 
; 1608 1 y Ctir$c_opr_eor] : : 
; 1609 17 begin ; 
; 1610 1% value = (.value or .value2) and : 
; 1611 17 not(.value and .value2); ° 
: 1el¢ 174 true ; 
3; 161 175 end; : 
; 1614 178 Ctir$c_opr_and] : ; 
; 1615 17 begin $ 
3 1616 A value = .value and .value2; : 
; 161 17 true : 
3 1913 180 end; ; 
; 161 181 Ctir$c_opr_rot] : : 
3 1620 1 ¢ begi ; 
: 1621 1 value = rot(.value2, .value); : 
3; 16 ¢ 184 true ; 
3; 16 185 end; : 
3; 1624 1 Ctir$c_opr_ash] : : 
3; 1625 18 begin : 
; 16 $ \3s value = .value2 * .value; : 
; 16 189 true 3 
: 1628 190 end; 3 
3; 1629 191 Ctir$c_opr_sel] : 3 
; 16 135 egin : 
: 1631 19 if .value eql true ! IF TOP LONGWORD IS : 
3 1036 194 then return true; ' IS TRUE, A N 3 
: 16 195 value = .value2; i OTHERWISE MOVE VALUE2 ; 
3: 16 128 pdl = .pdl2; ! TO VALUE 3, DISCARDING 3 
: 1635 19 if not popivalues -edl2) ' WHAT EVER WAS THERE 3 
: 1636 198 then return false; ! BUT CHECK SOMETHING WAS F 
3; 1637 199 gna: : 
: 1638 00 Ctir$c_opr_dflit] : 3 
3; 1639 01 begin 3 
: 1640 8 local 3 
3: 1641 20 entry : ref blockC,bytel, 2 
5 1006 04 Litindex; F 
3 164 05 
> 1644 06 datalng = 1; 
3 1645 07 if (.commandata + .datalng) gtru .endrecaddr 
3 1646 08 then return report_tiring(); 
3 1647 09 Litindex = .commandata[0,0,8,0); 
> 1648 10 LibSinsert_tree(ink$gl_litbl,.Litindex,. ‘INSERT INTO TREE 
3 1649 11 fre (0) ,compare_lit,alloc_lit.entry); 
3; 1650 \¢ entry(lit$v_pdl) = .pdl; 
3: 1651 1 entry(lit$v_stapx] = “peor: 
; 1936 14 entry(lit$p_index] = .litindex; 
3; 165 15 entry(lit$l_shrsym] = .shrimgsym; 
3 1654 1 entry(lit$l_shrexpr] = .shrsymexpr; 
3; 1655 1 entry(lit$l valued = .value; 
3 1636 18 ink$gl_Litflgsl.litindex] = true; 
3; 165 19 return true 
: 1658 0 end; 
3 1659 1 Cinrange) : 
: 1660 ¢ return report_illtir2(); 
3; 1661 tes; 
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LNK PASS2 
042000 


41 


50 
00000000" 


FO6F 
69 000000006 


000000006 

10 OA 
FOC8 
00000000' 
ie 00 90006 
7E $0000000" 
7E 000000006 
7E 00000000° 
000000006 

10 

OA 

08 OA 


: 1964 4 

: 166 5 return push(.value,-1,.pdl) 
: 16646 § 

3; 1665 end; 
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00000 OPERATECOMMAND : 
SUBL2 


$3 AX-11 Bliss-32 Ph yee 
3 LINKER. SRC JLNKOBJPS2.852; 1 


#28, SP 
COMMANDTYPE, #50 
en oe #65 


12$ 

(COMMANDATA), DATALNG 
DATALNG 

DATALNG, COMMANDATA, RO 
RO. ENDRECADDR 

42$ 

(COMMANDATA), #31 
(COMMANDATA) 

4$ 


COMMANDATA 
#1, REPORT_ILLNAMLNG 


4 

#2, LNKSGL_CTLMSK, 8$ 
SYMDSCNAM 

SYMDESC 

COMMANDATA 

3, NKSSEARCH 
SYMDESC, RO 

#1, 10(RO), 7$ 
COMMANDAT 

#1, REPORT_USEUNDEF 
#1, FLAGS 


° 


SYMDESC, R5 
#4, 11(R5S), 9$ 

f 6. LNK$GL_CURFIL, -(SP) 

. ODESC, -(SP) 
CURPSECTBASE, LNKS$GL_LOCN, -(SP) 
#45, LNKSGL_CURPSC. =(SP) 


LIBSSIGNAL 
LNK$GL_LOCN, 16(R5) 
“AO tRS) 


#4100, 
LNKSGE_CURPSC, RO 


ae ag 


4 
ons ALREDEF 
i 


—— eee 
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16*$ 4 0 17 7% 
1455 4 12:40: INKER. SRCJLNKOBJPS2.832;1 ) 
04 58 AI OOCA BLBS 88(CLUDESC), 10$ : 2051 
oc AS 4 bs Oc BISB2 #4, 5 cass : O5¢ 
20 900000 G 6 5 E D2 10$: BBC #5, LNKSGL_CTLMSK, 11$ + 205 
00000006 1 50 SODA BBS 1. ENKSGL CTLMSK#1, 11% + 2054 
E OA Ad 3¢ os MOV ZL 10¢R5), -(SP) + 2056 
7E OC AE 4 ci $ ADDL3 #4, SYMDSCNAM, =(SP) + 2055 
000000006 00 9F OED PUSHAB LNKSAL_SYTBLFMT : 
000000006 00 4 §B OOOF CALLS #4, CRFSINSRTKEY + 2056 
0275 31 OOOFA 11$: BRW 44$ : 2057 
55 01 DO OOOFD 128:  MOVL #1, FIRST_ABS + 2059 
00000090" EF 3 1 PUSHAB PDL : 2060 
1 A F 1 PUSHAB VALUE é 
F258 CF 9 FB 01 CALLS 2. PoP : 
46 E9 0010E BLBC RO, 14$ : 
50 00000000" EF bg 0111 MOVL SHRIMGSYM, RO + 2062 
1F 13 00118 BEQL 13$ : 
55 D4 OO11A CLRL = FIRST_ABS : 2065 
16 00000000" EF €E8 oor i¢ BLBS  STAPX; 13$ + 2066 
11 0B AO 06 E1 001 B #6, 11(RO), 138 + 2067 
0c 0A AO 03 €1 01 8 BBC #3. 10(RO). 13$ + 2068 
OC AE 10 Ad DO 0012D MOVL 16(RO), VALUE : 2071 
00000000' ef 50 DO 001 H MOVL 0, SHRSYMEXPR : 2072 
A 5B 91 00139 13$: | CMPB = COMMANDTYPE, #58 : 2075 
¢3 13 0013¢ BEQL 16$ : 
38 B 91 O0013E CMPB COMMANDTYPE, #59 ; 2076 
20 13 00141 BEQL =«-:16$ ; 
42 8F B 91 00143 CMPB COMMANDTYPE, #66 3; 2077 
7D 13 00147 BEQL 19% : 
56 01 pd 00149 MOVL #1, _SECOND_ABS : 2079 
10 AE 9F 0014C PUSHAB PDL2 : 2080 
18 AE 9F OO14F PUSHAB VALUE2 : 
F20F CF FB B31 85 CALLS #2, POP é 
03 E8 00157 14$:  BLBS RO, 15$ ; 
0234 31 00134 BRW 47$ : 
00000000° EF D3 015D 15$: TSTL §SHRIMGSYM + 2082 
61 13 00163 16$:  BEQL 9$ ; 
00000000° EF d 00165 TSTL § SHRSYMEXPR > 2085 
5 1 00168 BEQL 7 ; 
7E 000000006 00 14 C1 0016D ADDL3 #20, LNKSGL_CURFIL, -(SP) : 2088 
000000006 00 DD 00175 PUSHL LNK$GL_RECORD ; 
7E 00000000" EF : C1 o178 ADDL3 #40, OBMODESC, -(SP) + 2087 
DD 0018 PUSHL # : 2088 
000000006 i DD 0185 PUSHL HL INS ILLSHRXPR : 
000000006 00 5 4} 1 CALLS #5, LIBSSIGNAL : 
990000 O°’ EF E 0192 17$: BLBS TAPX, 18$ : 2089 
00000000° FF DO 001 MOVL § SHRIMGSYM, RO : 2090 
1F OB A 6 £1 O1A0 BBC #6, 11(ROS, 18S : 
50 00000000' ai DO OO1A MOVL § SHRIMGSYM, RO : 2091 
13 OA A 3 61 Otat BBC 3, 10(ROS, 18$ ; 
50 00000000" EF o0 1B1 MOVL HRIMGSYM, RO > 2094 
14 AE 1 Ad DO 00188 MOVL 6(RO), VALUE2 ; 
00000000" EF 50 DO 00180 MOVL SHRS YME XP : 2095 
56 04 001C4 18$:  CLRL SECOND ABS : 2097 
00000000" éF D3 01C6 19$:  TSTL HRSYMEXPR > 2101 
F gice BEQL : 
33 B 91 OOICE CMPB  COMMANDTYPE, #51 + 2102 
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A 13 0010 BEQL 208 
34 i 4 1D} CAPE SYpseay #52 
7E 000000006 00 4 ci 18 ADDL3 #20, LNKSGL_CURFIL, -(SP) 
000000006 DD 001£0 PUSHL LNK$GL_RECORD 
7E 00000000" EF ‘ ci 1E6 ADDL 3 #40, OBMODESC, -(SP) 
000000006 F ODD iff PUSHL ar ILLSHROPR 
000000006 00 05 FB O1F6 CALLS #5, LYBSSIGNA 
20 6 D2 OO1FD 208 MCOML SECOND ABS, R 
. a mn a 
OF 33 B Re 0 $3 CASEB OMMAND TYPE, #51, #15 
008D 0086 0049 0020 00 08 21$: WORD es- 1$,- 
0078 O0A2 0098 0088 021 $-21$.- 
016C 00cB 016¢ 007F 0021B 0$-21$.- 
OOF C 016C 00D5 00¢2 00223 1$- 18.- 
¢s- 1$.- 
33$-21$.- 
ae 
29$-21$.- 
45$-21$.- 
37$-21$.- 
45$-21$.- 
ssec818"- 
39$- 1$,- 
45$-21$.- 
41$-21$ 
16 50 £9 00228 22$:  BLBC EITHER SHR, 24$ 
00000000" EF oc AE £0 0008 ADDL2 VALUE ABSEXPR 
08 56 £9 00939 23$:  BLBC  SECOND_ABS, 24$ 
00000000" EF 146 AE CO 002 C ite VALUE2, ABSEXPR 
C AE 14 AE CO 00244 24$:  ADDL2 VALUE2. VALUE 
00000000' EF 10 ots co 00349 ADDL PoL2, PDL 
16 50 £9 00254 25$:  BLBC  EITHER_SHR, 27$ 
08 55 £9 00257 BLBC_ FIRST_ABS, 26$ 
00000000" EF Oc AE cg 00 SA SUBL2 VALUE; ABSEXPR 
08 56 £9 00 62 26$:  BLBC  SECOND_ABS, 27$ 
00000000" EF eae? a. 00 6 SUBL2 VALUE2, ABSEXPR 
OC AE 146 AE OC AE C3 0026D 278:  SUBL3 VALUE, VALUE2, VALUE 
00000000" EF 10 AE 00000000° EF C3 00 ie sit PDL, PDL2, PDL 
Oc AE 0c A cE 00 83 288: MNEGL VALUE, VALUE 
Oc AE 0c At be 0 BA 29S: NCOML ALUE. VALUE 
Oc AE 14 A C4 : 91 30S: MULL2 VALUE2, VALUE 
0c AE D5 00 38 31$:  -TSTL ALUE 
40 13 00298 BEQL 8$ 
0c AE 14 AE 0c A 029D DIVL3 ALUE, VALUE2, VALUE 
cok RB zn, Ba ue, re 
85 ff 02ABti“‘Cé@i@RB 48$ : 


VIWOWM ES NROONS 


PHS Se Se Ge Se Se Se Se Ge Se Se Se Se Se Be Se Se Se Se Be Se Be Be Be Be Be Se Be Be Be He Be Se Be Be Se Se Be Se Be Se Be Be Be Be Be Be Be Be Be Be Bete Se Ge 


PIPPIN POPOPEPEPEPEPENPENoNoNononononononononononony 
a el ed ed ed ed ed ed od ed ed 


PED HMMM SNL SW a oppo 
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yO4=000 127808- 1 3be 90:10:48 LINKER. SRCJLNKOBJPS2.832;1 ° (28) | 
51 0c AF 16 AE C9 OO2AD 33$:  BISL3 VALUEZ, VALUE, R1 ; 317 : 
. 14 AE D2 0008 MCOML VALUE2. RO + 2173) ; 
50 oC At ; CB 0028 BICL3 RO, VALUE, RO : ; 
Oc AE 5 CB O02BC BICL3 RO, RI, VALUE ; : 
1A 11 C BRB 3 : 171 : 
50 14 AF D2 002C3 348: COM, VALUE2, RO : 2178 F 
OC AE 50 CA 000C BICL RO) VALUE : ; 
10 71 (B BRB 3a$ + 2177 ; 
oc AE 14 AE 0c ry) 9C CD 35$: ROTL YALUE . VALUE2, VALUE 3; 2183 : 
07 11 00204 36$: BEB 3; 2182 : 
oc AE 14 AE 0c AE 78 00206 $: ASHL VALUE, VALUE2, VALUE ; 2188 : 
- 009E 31 00 DD gs: BRW 46$ F 3187 : 
01 0 AE D1 OOCEO 39$:  CMPL =~ VALUE, #1 + 2193 ; 
03 12 00264 BNEQ  40$ : ; 
0089 31 00266 BRW 44$ : ; 
0c AE 14 AE DO O002E9 40$: MOVL VALUE2, VALUE 3 2195 be 
00000000" EF 10 AE DO OOZEE MOVL  PDL2, PDL + 2196 : 
10 AE OF 002F6 PUSHAB PDL : 2197 ; 
18 AE SF 002F9 PUSHAB VALUE2 ; : 
FO6S =F 02 FB OO2FC CALLS #2, POP : ; 
D9 50 ES 00301 BLBS RO, 38$ : : 
008A 31 00304 BRW 47$ + 2198 : 
59 01 DO 00307 41$ MOVL. #1, DATALNG + 2206 : 
0 SA 9 C1 0030A ADDL3 DATALNG, COMMANDATA, RO : 2207 ; 
00000000" EF 50 01 00306 CMPL RO, ENDRECADDR : : 
07 1B 0031 BLEQU : | : 
EDBC CF 00 FB 00317 42$ CALLS #0, REPORT_TIRLNG + 2208 ; 
75 11 0031C BRB ; 
55 6A 9A OO31E 43$:  MOVZBL (COMMANDATA), LITINDEX > 2209 
18 AE 9F 00321 PUSHAB ENTRY + 2210 
FOA9 CF OF 00324 PUSHAB ALLOC_LIT ; 
FO9S §=6sCFSsOOF:« 00328 PUSHAB COMPARE_LIT : 
OC AE D4 003 C CLRL _—«-12( SP) > 2211 
OC AE OF O032F PUSHAB 12(SP) ; 
55 0D 005 2 PUSHL LITINDEX > 2210 
00000000' EF 9F 00334 PUSHAB LNK$GL_LITBL : 
000000006 00 06 FB 0033A CALLS #6, LIBSINSERT_TREE : 
50 18 AE DO 00341 MOVL ENTRY, RO + 2212 
OA AO 07 00 00000000" EF FO 00345 INSV PDL, #0, #7, 10(RO) ; 
OA AO 01 07 00000000' a FO O034F INSV STAPX, #7, #1, 10(RO) : 2213 
0B AO 5 90 00359 MOVB  LITINDEX, 11(RO) > 2214 
0C a0 00000000' EF 7D 0035p MOVQ §SHRIMGSYM, 12(RO) : 2215 
14 AO 0c AE DO 00365 MOVL VALUE, 20(RO) : 2217 
00 00000000' EF 3 Ee 9 6A BBSS LITINDEX, LNKSGL_LITFLGS, 44$ : 3218 
0 1D é 44$ MOVL #1, RO : 2219 
1¢ 11 0037 BRB 48$ : 
EEC2 CF 09 FB 00 77 45$: CALLS #0 REPORT_ILLTIR2 + 2222 
15 11 0037¢ BRB 48$ : 
00000000' Ff DD OO37E 46$ PUSHL PDL > 2225 | 
7E 1 CE 00 MNEGL #1, -(SP) ; 
14 AE DD 00387 PUSHL VALUE ; 
EF23 CF 03 FB O038A CALLS #3, PUSH ; 
iy 11 0 af BRB 4a$ ; 
D4 1 47$ CLRL RO >; 2227) 
5E iC ¢9 0393 48$ ADDL2 #28, SP : | 
00396 RSB ; 


LNK_OBJPASS2 
04000 


Shianieanierabanagmeie 


AX-11 Bliss-32 V4.0-74 Page 66 | 
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; 1667 1 routine compare_dli (value,node) = | 
; 1998 4 begin | 
; 160 1 @ | COMPARE A VALUE WITH CURRENT NODE 
: 167 g map 
3 1907 2 node : ref block(, byte); 
: 1675 6 3 return (.value = .node(dli$l_index]) 
3: 1676 237 1 end; 
0000 00000 COMPARE_DLI: 
«WORD Save nothing ; 2228 
50 08 * c3 00906 MOVL NODE, R : 2236 
50 046 AC 0A AO 0006 SUBL3 10(RO), VALUE, RO : 
0000C RET : 2237 
; Routine Size: 13 bytes, Routine Base: SCODE$S + 1334 


BR 


=PRAPASS2 


ee ee ee ee 
UPwn— 


oo 


Routine Size: 


PPP PREP EU 


ONAUNE WOOD 


18 bytes, 


p 
retadr : 


000000006 00 
50 


Routine Base: 


ALLOCATE A NEW DLI BLOCK 
ma 


08 


F 10 , 17 
1e=8p=1986 99:40 


fout tne alloc_dli (value,retadr) = 
beg n 


ref vector(,long]; 


ink$Salloblk(dli$c_size,retadr(0J); 
oe true 
end; 


0000 00000 ALLOC_DLI: 
. WORD 


AC 0D 9000 PUSHL 
\s DD 0000 PUSHL 
02 FB 00007 CALLS 
01 00 OO00E MOVL 
04 00011 T 


SCODES + 1341 


4% AX-11 


LINKER. SRC 


Save nothing 
RETADR 


Oi iegrse v4.0- 
LNKOBJPS2 


& 
#2, LNKSALLOBLK 


#1, RO 


roe 


-—~ 


o 
8 


OOo 


wr 
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pout tne controlcommand : tir_proc = 
beg n 


! PROCESS CONTROL COMMANDS 


external regrets 

commandtype = 11 : iy - 
commandata = 10 : ref block(,bytel, 
datalng = 9; 


local 


BVISSSLESE 


ESE 


Oo 
@ 


3 


PIII III at st et et 2 ot 2 


Co C2 G9 09 CD CO I~ 


MONIFORONY: 
yah tr ty xh 4 


—OODNAOUSWN “OOOBNOULWN—O 
Oo 


MOTUPOROROTURORnPn 


wr 


SAFUSASS 


a ek et a ec ee a a ee el a ee a a a ed ed 
NNN NS NSN SSNS SSNS SI SI IIIA CCC OCOCOOO 


fat ae at et at ot hohe) 
OuUnlwn—O0dnou 


value; 
case .commandtype from tir$c_ctl_setrb to tir$c_maxctlcod | 
“Etiese ett setrb] : ! PROCESS SETTING OF RELOCATION BASE 
Canine = .psectstack(.stackpointer,0]) eal SeccarbTi Aue te teas CURRENT P-SECTION 


signal (Lin$_notpsect,2, ! REPORT AS FATAL ERROR 
obmodescComd$b_naming], Ink$gl_curtillfdb$q_filename]); 


return false; 


-commandt ype ,obmodesclomd$b_naming] 
. Lnk$gl_record, Ink$gl_curfillfdb$q_filename)); 
return false; 


en 
else if not pop(value,pdl) ' OTHERWISE POP THe INDEX 
or .pdl neq " ' AND IF THAT FAILS CR INDEX 
then return false 
else begin : 


| 
| 
| 
| 
end | 
else ink$gl_curisd = .lnk$gl_curpsc(psc$l_isect); ! SET CURRENT ISD ADDRESS 
curpsectbase = .psectstackl.stackpointer,T1]; ! SET BASE OF THIS MODULES CONTRIBUT | 
if not pop (value,pdl) ! GIVE UP IF THAT FAILS 
then return false; | 
stapx = shrimgsym = shrsymexpr = 0; 
ink$gl_locn = .value; ! OTHERWISE SET IT 
end; 
CeirSe_cetl_eugred : ! PROCESS AUGMENTS TO RELOCATION BASE 
egin 
° datalng = 4; ' FOUR BYTES OF DATA 
if (commandatallongword) + .datalng) gtru .endrecaddr ! CHECK THE INCREMENT EXISTS 
then return Soper’ tirlng(); 
ink Sel lecn = .lnk$gl_Tocn + .commandatallongword]; ! IF AUGMENT, DO THAT 
end; 
Ctir$c_ctl_dfloc, 
tirSc_ctl_stkdl | 
tirSc~ctlistlocd : ! TBK/DBG LOCATION COUNTER CONTROL 
begin | 
local 
entry : ref block(,byte); | 
7 “y -nkSgl_ctlmskCinkSv_dbdgrec) ! MUST BE IN DEBUG TYPE RECORD 
en begin 
signal stop(lins illtir,4, ! REPORT ILLEGAL TIR TYPE 


— 


ee — " - 7 
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; 17467 06 4 if .commandtype eql tir$c_ctl_dfloc ! IF THIS IS DEFINE LOCATION | 
3 1rn8 then pegin 
3 174 Lib wnsert tree (gonedanclondst él} | st) -value, ! INSERT INTO TREE | 
: 1750 tret (0, compare_dli,alloc_dli.entry); 

; 1751 1 entryfdt i$ index] = ,value; 

; i § : entry dLi$l=loc] = .Lnx$gl_locn; 
; en 

3 1754 18 else begin ! STKDL OR STLOC | 
: 1755 14 if not LibSlookup_tree(obmodescComd$l_dlilst], 
3 1738 15 -value,compare_dli,entry) 

; 175 1¢ 6 then begin 

3 1738 17 6 orora) {i inh tCi tie .6. -commendt yes obaodess Londsp naming], 

: 17 18 6 . ink$gl “record, Lnk$gl_curfillfdb$q_filename]); 

; 1760 1 return false 

; 1761 0 end; 

: 1766 1 if ecounendt yee eql tirSc_ctl_stloc 

; 176 2 then LinkSgl_locn = .entryfdli$l_locJ 

: 1764 5 else return push(.entry(dli$l_loc)],-1,0); 

; 1765 2324 4 end; 

3 1768 =. end; 

: 176 $ end; 

: 1768 Cinrange) : return report_illtir2(); 

: 1776 359 te 

; 1771 330 return true 

3; 1772 331 1 : 


SE OC 2 00000 CONTROLCOMMAND: 
SUBL2 #12, SP 1 2249 
04 50 —8F 5B 8F 00003 CASEB COMMANDTYPE, #80, #4 + 2262 
0080 0080 O08E 000A 00008 1$: .WORD 2$-1$,- F 
0080 00010 $-1$.- ; 
8$-1$,- : 
ai : 
50 00000000" EF 9A 90012 2$: MOVZBL STACKPOINTER, RO : 2266 
00000000'EF4O 7F 0001 PUSHAG PSECTSTACKCROJ : 
00000000' i if 09 9 nO a(SP)+, LNKS$GL_CURPSC ; 
7E G6 00 cue 9 ADDL3 #20, LNKSGL_CURFIL, -(SP) > 2269 
7E itddittdiy EF 8 C1 09 1 ADDL $20" OBMODESC, -(SP) ; 
DD 00039 PUSHL #2 : 
000000006 8F DD 00 PUSHL #LIN$_NOTPSECT ; 
000000006 00 4 £8 41 CALLS #4, LIBSSIGNAL 3 
O15E 3 48 3$: BRW 5$ : 2270 
50 000000 9° EF 09 48 4s: MOVL LNKSGL_CURPSC RO : deve 
000000006 00 AO B 3 MOVL 2(RO)> LNK$GL_CURISD ; 
0 000000 0. EF 9A A MOVZBL STACKPOINTER, R > 2273 
00000000'EF4O 7F 00061 PUSHAG PSECTSTACK*4(RO ; 
00000000" EF 9E pO 68 VL a(SP)+, CURPSECTBASE : 
00000000" EF 9F of PUSHAB PDL + 2274 
0 AE OF 3 PUSHAB VALUE ; 
EF33 CF 02 FB 0007 CALLS #2, POP ; 


ee C 
} 10 
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LK _OBJPASS2 14-Sep-1984 19:15:98 LINKER. SRC JLNKOBJPS2.B | 
v RO, 3$ : 227 : 
wasn: FP SEER SURE Sis gn| | 
80000009" EF 94 ROVE VALUE, LNKSGL_LOCN é : 
000000006 00 © ME BO BRet “gg pee : 8 : 
59 39 o9 $38 98 ADDL3. DATALNG COMMANDATA, RO g 6283) : 
0 o° éF 28 bt 090 CMPL RO, ENDRECADDR | ; 
cies CF 00 EB OOOAG CALLS. #0, REPORT_TIRLNG ‘heed 
va (OER £0 GOOAE 6S: «ADDL. CCOMPANDATAD, LNKSGL_LOCN : 3285 
000000006 00 ot §? Oboes Se; | aRbte OE : $595, ; 
-— Q0B8 8$:  § BLBS_ —LNKSGL_CTLMSK+2, 108 : $599 ; 
BO ett tttte ee ET OOORE = ADBES. BOOS ERSGL CURFIL. =cSP) ‘atl 
000000006 6 bb pope? PUSHL —LNKSGL_RECO : 2298. 
000.006 99 Db 000¢ ADDL3 #40, OBMODESC, -(SP) : $638 
eerennte | 8 9k 00005 MOVZBL COMMANDTYPE, (SP) ; 
BF DD OO0DA PUSHE #LINS_ILLTIR : : 
000000006 FB O00E0 CALLS #6, LTBSSTOP ; 2300 ; 
000000006 00 oone SF popes a : 2302 | 
| (e008 ORE OE 000F9 PUSHAB VALUE | ; 
CALL ec ; : 
cong BRS GS jaws] | 
00000000" EF Bs Q00r8 BNEG ~=s«O9S : 2308 ; 
ee 103 ADDL3 #4, OBMODESC, RO : 2306 
00000000" EF s $1 Ot CMPB. © COMMANDTYPE, #82 : ; 
52 BF 2B 9) 00108 a. i1$ ; 2308 
Ae OF 8019 PUSHAB ENTRY : 
BCE OOF OOt PUSHAB ALLOC_DLI : : 
Fecs «CF OF OOTI8 PUSHAB COMPARE, DL : 2309 : 
OC AE D4 0011C pette iSiaes : 2308 : 
14 AE bb 00129 PUSHL VALUE : : 
32 DD O01 CALLS Me, _LIBSINSERT_TREE : 2310 : 
000900006 00 06 FB 00127 MOVL ENTRY ; 
50 08 AE DO 001 MOVL VALUE, 10(RO) ; 2311 : 
OA AO 04 =—AE 00 001 MOVL §LNKSGL_LOCN, 14(RO) > 2306 : 
0 AO 000000006 99 0 00137 Sa : $300 
N - 3 
ee ee eee fans] [3 
lad 4: Ag DD 00148 PUSHL VALUE > 2314 : 
ba FB OolaD CALLS. #4, LIBSLOOKUP_TREE ; 
sean fh i 4 0137 ADDLS 6, LNKSGL CURFIL, -(SP) Codie : 
100000006 > 00000006 9 5p 0015 ADDLS a0. OBMODESC, (SP) § 8 
00000000" gf ; a O63 ROVZBL COMAANDTYPE, (SP) 
F DD Oot? PUSHE ALINS_ILLTIR | : 
000000006 §F DD 017 st ns LTB$SIGNAL 9319 

000000006 00 g AP Bote BRE «158 


0 
F 


000000006 00 


7E 
CF 
50 


5E 


Routine Base: 


1 
1 
p 181 128: 
1 
Lee 
1 001 
e i 138: 
me Hs 
BBE cs 
11 Oia : 
D4 OO1A9 15S: 
CO OO1AB 16S: 
05 OO1AE 


SCODES + 1353 


Sep-1 
fo 3en- 1984 


1e:48 AX-11 Oi fegnse v4.0 oi 
LINKER.SRC LNKOBJPS2.B 2;1 


ENTRY, RO 
DTYPE, #83 
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AAAI AIA AAAI AI AAAI IAAI 


1 routine protirdbg = 
begin ° 


i 
psect plit = Scode$; 


nd 
tirdisptable = uplit( 


Splits; 
global register 


endrecaddr = tirrec(0) + -reclng; 
while .tiroffset lssu .recing 


' TIR 
rep ttrSe monetecesss i STAC 


rep tirSc_maxstocod-tir$c_minstocod+1 


rep tirSc_maxoprcod-tir$c_minoprcod+1 


= 1 
= 


PROCESS TIR, DBG AND TRACEBACK RECORDS 


of word(stackcommand-protirdbg), 


yt tirSc_minstocod-tir$c_maxstacod-1 neq 0 
hen 


rep tirSc_minstocod-tir$c_maxstacod-1 
of word(report_illtir=protirdbg), 


of word(storecommand-protirdbg), 


ays tirSc_minoprcod-tir$c_maxstocod-1 neq 0 
hen 


rep tirSc_minoprcod-tir$c_maxstocod-1 
of word(report_illtir=protirdbg), 


of word(operatecommand-protirdbg), 


ay tirSc_minctlcod-tir$c_maxoprcod-1 neq 0 


rep tirSc_minctlcod-tir$c_maxoprcod-1 
of word(report_illtir=protirdbg), 


rep tirSc Panetingene tee minctlcod+1 
rs) 


civatalnaeticonssnieartatodeal 
: vector(,word,signed); 


: byte, 
: ref blockC,bytel, 


STEP THROUGH THE CONCATENATED SEQUENCE OF THE COMMANDS 
IN THIS RECORD. 


10 
1eo$ep=19be 12:40:33 EM TnKeRs see SunKousPs2 


78221 


DISPATCH TABLE 
K COMMANDS 


ILLEGAL COMMANDS 


STORE COMMANDS 


ILLEGAL COMMANDS 


OPERATE COMMANDS 


ILLEGAL COMMANDS 


CONTROL COMMANDS 


! START AT FIRST BYTE PAST RECORD TYPE CODE 
! COMPUTE END ADDRESS + 1 


SS st 


Te 
10 | 
16-Se =1984 00:17:44 AX-11 Bliss-32 V4.0-74 Page 73) Ul! 
1er8een 188s 93:40:93 EtNnen SReScncob sPo2. 69251 . (2?) vl 
>; 1831 , eh if (commandtype = .tirrec(.tiroffset]) gtru 127 
3 ; ¢ $0 2 then begin ’ ’ 
: 1884 9 | COMMAND IS A STORE IMMEDIATE | 
:1 94 % tiroffset = .tiroffset+1; ! POINT PAST THE BYTECOUNT 
: H 2 ? datalng = 256 -.commandtype; 
: 1 97 & if tirrec(.tiroffset + .datalng) gtru .endrecaddr ! CHECK THERE ARE ARE ENOUGH BYTES I 
$ ' ? $3 2 then return report_tiring(); 
: 1 § 4 if not lnk$Swrtimgbyts(.datalng,tirrec(.tiroffsetJ,1) ! OTHERWISE WRITE THE STREAM 
3 Mh rt’) ? then return false; 
3 1845 403 4 tiroffset = .tiroffset + .datalng; ! AND UPDATE THE OFFSET INTO THE REC 
3 1en6 404 4 en 
3 1 405 4 else begin 
8 ie $36 4 : 
: Heh ret 2 COMMAND IS OTHER THAN STORE IMMEDIATE COMMAND 
: 1851 409 4 cCommandata = tirrec(.tiroffset+1); ! POINT TO DATA PART OF COMMAND 
3 1836 410 4 datalng = 0; 
3; 185 411 5 if not (if peenneneteey gtcy tirSc_maxctlcod 
3; 1854 216 5 then report_illtir2() 
>; 1855 413 6 else begin 
; 1856 414 6 bind routine : } 
; Hh $44 ai2 ? recordprocessor = .tirdisptablel.commandtype] + protirdbg : tir_proc; 
: 1859 ai? 6 recordprocessor() 
: 1860 418 $ end 
; 1861 419 ) 
3 1806 420 4 then return false 
: 186 421 4 else tiroffset = .tiroffset + 1 + .datalng; 
3; 1864 4 ¢ end; 
3; 1865 4 end; 
3; 1866 424 
3: 1867 $tSe return true 
: 1868 426 1 end; 


01502 -BLKB 2 

0000* 01504 P.AAB: .WORD <STACKCOMMAND-PROT IRDBG> ; 
BOR 1 68 ~ WORD <STACKCOMMAND=-PROT IRDBG> F 

00* 0150 ~WOR < CKCOMMAND-PROTIRDBG> ; 
000* 0150A WOR <STACKCOMMAND-PROT IRDBG> 3 
000* 0150C WORD <STACKCOMMAND-PROT IRDBG> ; 
000* 0150 WOR <STACKCOMMAND=-PROT IRDBG> ; 
000* 0151 -WOR <STACKCOMMAND=-PROT IRDBG> 3 
000* 0151 WOR <STACKCOMMAND-PROT I RDBG> ; 
000* 01514 -WORD <STACKCOMMAND-PROTIRDBG> 3 
000* 01 18 -WOR ACKCOMMAND-PROT IRDBG> 2 
000* 0151 - WORD <STACKCOMMAND=-PROT IRDBG> 3 
Be * OSTA WOR < KCOMMAND=-P > 3 
000* 0151C WOR <STACKCOMMAND-PROTI G> ; 
000* 01 3 ~WORD <STACKCOMMAND-PROTIRDBG> ; 
0000* 0152 WORD <STACKCOMMAND=-PROT IRDBG> P 


- | 
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p-1 LINKER. SRC 
000* 01522 «WORD <STACKCOMMAND-PROTIRDBG> ; 
# 01504 .WORD <STACKCOMMAND-PROTIRDBG> : 
« 01 6 -WORD <STACKCOMMAND-PROTIRDBG> : | 
00* 01 .WORD <STACKCOMMAND-PROTIRDBG> : 
0 * 01524 «WORD <STACKCOMMAND-PROTIRDBG> : 
* 0152¢ «WORD <STORECOMMAND-PROTIRDBG> : 
900s 1 «WORD <STORECOMMAND-PROTIRDBG> : 
000* 01 <STORECOMMAND-PROTIRDBG> : 
000* 01 «WORD <STORECOMMAND-PROTIRDBG> : 
000* 01 W <STORECOMMAND=PROTIRDBG> : 
O* 01 .WORD <STORECOMMAND-PROTIRDBG> : 
Oe 1 W <STORECOMMAND=PROTIRDBG> ; : 
« 0153A : <STORECOMMAND=PROTIRDSG> : : 
000* 0153¢ t <STORECOMMAND-PROT IRDBG> ; : 
9000s 1 .WORD <STORECOMMAND-PROTIRDBG> ; : 
000* 0154 W <STORECOMMAND=-PROT IRDBG> : : 
0000* 0154 : <STORECOMMAND=PROT IRDBG> : ; 
9000s 1544 W <STORECOMMAND=PROT I RDBG> : ; 
000* 01 46 ‘ <STORECOMMAND=PROT IRDBG> : : 
0000* 0154 .WORD <STORECOMMAND-PROTIRDBG> : : 
0000* oi 4A * <STORECOMMAND=-PROT IRDBG> F 
0000* 0154¢ .WORD <STORECOMMAND-PROTIRDBG> : 
0000* 0154E ; <STORECOMMAND=PROT IRDBG> : 
0000* 01550 .WORD <STORECOMMAND-PRO 6> : 
0000* 01552 W <STORECOMMAND-PROT IRDBG> : 
0000* 01554 -WORD <STORECOMMAND-PROTIRDBG> : 
0000* 01556 Ww <STORECOMMAND-PROT IRDBG> : 
0000* 01558 . WORD ECOMMAND-PROT IRDBG> : 
0000* 0155A W <REPORT_ILLTIR=PROTIRDBG> : 
0000* 0155¢ 2 <REPORT~ILLTIR-PROTIRDBG> ; 
0000* 01 95E W < “ILLTIR=PROTIRDBG> ; 
0000* 0136 : <REPORT—ILLTIR-PROTIRDBG> : 
0000* 1362 .WORD <REPORT-ICLTIR-PROTIRDBG> : 
0000* 01564 -WORD <REPORT-ILLTIR~PROTIRDBG> : 
9000s 01366 -WORD <REPORT~ILLTIR-PROTIRDBG> : 
000* 01568 .WORD <OPERATECOMMAND-PROTIRDBG> F 
0000* 0156A .WORD <OPERATECOMMAND-PROTIRDBG> : 
0000* 0156¢ W <OPERATECOMMAND=-PROT I RDBG> : 
0000* 0156€ .WORD <OPERATECOMMAND=PROTIRDBG> : 
0000* 01370 W <OPERATECOMMAND=PROT I RDBG> : 
0000* 01572 <OPERATECOMMAND=-PROT I RDBG> : 
000* 01574 W <OPERATE COMMAND=PROT IRDBG> F 
000* 01576 ‘ <OPERATECOMMAND=PROT I RDBG> : 
900s 1578 : <OPERATECOMMAND-PROT I RDBG> F 
Oe 0157A ; <OPERATECOMMAND=PROT IRDBG> F 
000* 137¢ W <OPERATECOMMAND=PROT I RDBG> : 
000* 0157 ; <OPERATECOMMAND=PROT IRDBG> : 
000* 01 " <OPERATECOMMAND-PROT IRDBG> ; | 
000 01 ; <OPERATECOMMAND=PROT IRDBG> : 
000* 01 .WORD <OPERATECOMMAND-PROTIRDBG> : 
09 * 01 z <OPERATECOMMAND=PROT IRDBG> : 
* 01 <OPERATE COMMAND-PROT IRDBG> : 
* 0158A ¥ <REPORT_ILLTIR=PROTIRDBG> : 
O* 0158¢ ; <REPORT~ILLTIR=PROTIRDBG> : 
6 * 01 cW <REPORT—ILLTIR=PROTIRDBG> ; 
* 01 ; <REPORT—ILLTIR-PROTIRDBG> : 
000* 0159 WW <REPORT~ILLTIR=PROTIRDBG> : | 
| 
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ave R2,R3, Ra, ARS R6,R7,RB,RI,R10,R11 
; PORT TIRLNG, RS 
OFFSET us 
orinOr ESET 
RREECROI ENDRECADDR 
OFFSET, R 
#16, RECLNG, RS 


itRb3 a 
COMMANDTYPE 
#127 


~ 
» 


AfDwD-oamAN2z IDs 
as Gy Bs TD oe m 
zeS 5 s . 22 . fay 


COMMAND TYPE DATALNG 
DATALNG, #256, DATALNG 
DATALNG, TIROFFSET, R1 
Ri. ENDRECADDR 


#0, REPORT_TIRLNG 


TIROFFSET, TIRREC, =(SP) 
#3, LNKSWRTIMGBYTS 
DATAUNG, TIROFFSET 
1(R5)CROJ, COMMANDATA 
CORRANDTYPE R5 

0, REPORT_ILLTIR2 


TIRDISPT LECRSI. RO 
PROTIRDBGLR 
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; Routine Size: 


50 


163 bytes, 


Routine Base: 


HERE BRt 99:13 


E9 F 6$: BLBC 
33 (1 do0se DDL 
01 AO ; 0096 OVAB 
CF 11 QOO9A RB 
01 DO 0009C 7$: MOVL 
04 0009F 
50 D4 OQOOA0 8S: CLAL 
04 OO0A 


SCODES + 15AE 


48 AX-11 Bliss-32 V4.0 
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DAFALNG TIROFFSET, RO 
1(RO), TIROFFSET 
, RO 
RO 


roe 


: 2421 


: 2626 


383 
425 


i 
CC | 
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; Routine Size: 81 bytes, Routine Base: $CODE$ + 1651 
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LNK_OBJPASS2 1-Se -1984 00:17:44 AX-11 Bliss-32 V4.0-74 p 77, U 
vo4=000 1o8b-198e 19:40:33 Ee IMER ’SRETL NCO IPS B82: 29° 28) | v 
; 1870 427 1 i hdres = | : 
an oh g beatin Poaal 
i] 1 430 | PROCESS HEADER RECORDS AS FOLLOWS: | ; 
: 1875 se 2 | IF HEADER TYPE 0 (MAIN MODULE HEADER) CALL THE MAP | : 
; 1876 4 ; ROUTINE THAT DESCRIBES A MODULE. | ; 
: 1878 435 3 i IF A LANGUAGE PROCESSOR HEADER TYPE, CALL THE MAP | ; 
3 1873 4 $ ROUTINE THAT OUTPUTS THAT DATA. | : 
; 18s) 438 2 | IGNORE ALL OTHER SUB-TYPES. | 
: 188 440 if not .obmodesc Comd$v_mapmod] ! IF MODULE NOT FLAGGED FOR MAP ; 
; 1884 441 and not .lnk$gi_ctlmsk ttnkSv_ Long) ! AND THIS IS NOT A FULL MAP ‘ 
: eH re then return true; ! FORGET IT ; 
: 1887 444 2 if not .Lnk$gl_ctlmsk Clnk$v_mapopn] ! ALSO FORGET IT IF ; 
; ise Stee then return trie; Aa ! MAP IS NOT OPEN. | ; 
: 1890 447 if .objrec Cobj$b_subtyp] eql obj$c_hdr_mhd ! IF THIS IS MAIN HEADER | : 
3; 1891 Stee 5 then Lnk$ma ees gts Bans ! GO MAP SOME INF : 
$ 133¢ 2449 § eise if .o {rec Cobj$b potty > egl obj$c_hdr_lnm ! OR IF THE COMPILER IDENTIFICATION ; 
; 1937 seat : then Lnk$maplng (objrec Cobj$b_subtypJ+1>.reclng-2); ! HEADER GO MAP THAT DATA : 
: 1895 245 turn tr ! RETURN ; 
: 1896 [to esattey yeti 
000C 00000 PROHDRS:.WORD Save R2,R3 : 2427 ; 
53 00000000" EF 9E 00002 MOVAB OBMODESC, R3 : ; 
50 63 D0 00009 MOVL § OBMODESC 3 2440 ; 
07 14 AO 04 €0 0000C BBS #4, 20(RO), 1$ ; : 
35 000000006 00 €9 00011 BLBC == LNKSGL_CTLMSK+1, 3$ 3 2441 ; 
2D 000000006 00 05 €1 00018 1$ BBC #5, LNRSGL_CTLMSK, 3$ > 2444 ; 
52 08 A3 DO 00020 MOVL  OBJREC, Re 3 2447 ; 
01 A2 95 00024 TSTB =—-:1(R2 ; : 
0D 12 00027 BNEQ 2$ : : 
50 DD 00029 PUSHL R 3: 2448 3 
52 DD 00028 PUSHL R : : 
000000006 00 9 FB 990 D CALLS #2, LNKSMAPMHD ; 3 
1 PRE 3$ : ; 
01 01 A2 91 990 2$ CMPB =s«3(R2), #1 > 2449 ; 
11. 12 OOO3A NEQ 3$ : 3 
7E 04 Ad 3¢ 99 C MOVZWL RECLNG -(SP) : 2450 3 
6E 0 ge 049 UBL2 #2, (SP) ; ; 
02 Ad 9F 0004 PUSHAB 2(R2) ; F 
000000006 99 02 FB 0046 CALLS #2, LNKSMAPLNG ; 3 
0 01 00 0004D 3$ MOVL #1, RO 3 st28 3 
04 00050 RET > 245 : 
| : 
: 
| ° 
| . 
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1002000 12=868-1 382 $0710.44 LINKER. SRCJLNKOBJPS2.B832;1 (29) | 

| 

; 1898 454 1 routine construct_dmt = 
2 
; 1902 rk Thi i f Deb Module/P Table (DMT) 
; : Ss routine manufactures Debugger Module/Psect Table (DM 
; 1908 459 : entries. There is an entr for each object module that 
: 130¢ ree contributes to the DST. The format of the DMT is illustrated 
: 1906 46g 3 ert 
: ib 434 ret } For each object module with a non-0 DST contribution, 
: 1909 465 i u_eumnnnennesewen uememanneese a — 
; 1219 re | Offset into DST of this module's contribution i; (Longword) 
; 191g 468 ! Length of this module's DST contribution (Longword) 
; ba sen ; : Number of non-O-Length psects in this module H (Longword) 
: 1916 47g i 
: Hb a see7 Then, for each of the above psects in this object module, 
: 1919 e475 G_erensencevenenremseetnap senna anne een eS eeDeseDD EDIRNE eee ENTS 
: 3 $278 | Base of this module's contribution to the psect ! (Longword) 
3 1356 sere : i Length of this module's cont. to the psect H (Longword) 
: 192% tbo i 
: 1925 2481 2 i | 
: 1926 sect : The maximum size of the DMT is calculated by au Sips ying the number 
3; 1927 248 ' of modules by the length of the module part of the DMT (12 bytes), 
; 1928 2484 ! and peeing that quantity to the value obtained by mul stelyine the 
; 9 2485 ; total number of psects with the length of the psect part (8 bytes). | 
: 1930 2486 : However, the size of the DMT may be adjusted downward in numerous ways. 
; 1931 2487 ‘ Among those situations requiring a yo in size are 1) no psect 
: 1936 2488 § ‘ entries are made for O-length psect contributions, and 2) no module 
: 337 $285 § entries are made for modules with no DST contribution. | 
: 1935 2491 § i The offset into the DST of a modules DST contribution is obtained | 
; 1936 49 : from the value of !nk$gl_dstlocn (DST location counter) at the 
3 1937 49 ! time the first DBG or TBT record is encountered for a module. 
: 1938 494 : The length is obtained by subtracting the DST offset of the previous 
: 137, $22 module from the DST offset of the current module's contribution. 
5 1941 49 i The psect information is available from the MPC blocks, which used to | 
: 1308 138 be mostly for psect cutput in the Linker map. 
> 1944 500 2 local | 
3: 1945 501 zero_length_psect, ' Logical fla 
: 1348 206 curomdptr: ref block(,byte); ' Ptr to start of data for current module | 
: 1948 504 dmtptr Rcott_seterte = ohekOah Op ttarns ! Start of this module's cont. to DST | 
: 1949 505 dmtptrldcm$w_numpsc] = .obmodesclomd$w_hipsct] + 1; ! Initial number of psects for the module 
: 1920 206 curomdptr = <dmtptr; ! Save ptr to start of data for this objmod 
; 1226 $08 if -prev_dstlen_addr neq 0 ! If prev_dstlen_addr has been initialized... 
4 en | 
; 1954 510 begin ! then compute dstl 
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; 1955 21) ; if (.prev.dstlen_addr = .dmtptr(dcm$l_dstoff] - .(.prev_dstlen_addr - 4)) eql 0 ! on difference of | ; 
3 9 ° \§ then ! If the Last module didn't contribu | ‘ 
3; 19 515 4 begin 1 the DMT, then adjust (nk$gl_dmtby | . 
; 1958 514 4 ink$gl_dmtbytes = .lnk$gl_dmtbytes - 1 reset dmtptr and curomdptr Back t| : 
; 1959 515 4 5 -Gate r= (.prev_dstlen_addr = 4)); ! position of the previous module e ‘ 
; 1960 218 4 dmtptr = .prev_dstlen_addr = 4; : 
3 1961 517 4 curomdptr = .dmtptr; : 
3 1306 518 end; : 
; 196 519 end; : 
: 1964 520 ; 
3 1203 ; 1 prev_dstlen_addr = dmtptr(dcm$l_dstlen]; ! Save address of dstlen for current module : 
3 1969 5 g if (.dmtptr+dcem$c_size) gtr .lnk$gl_dmtbuffer(1] ! If we'll end up past the end of the alloca! : 
; 1968 524 then ! memory, something's amiss -- quit writing ‘ 
: 1969 525 begin ; 
; 1970 5 § dmtptr = 0; ! the OMT... | : 
; 1971 5 return true; ! and return ‘ 
3 1378 528 end : 
; 197 529 else ; 
: 1976 530 begin ! Otherwise, everything's cool... ; 
; 1975 $23 dmtptr = .dmtptr + dcm$c_size; . : adjust pointer to peect data part ° 
3 1976 $2 ; i a * irea 0 to .obmodescComd$w_hipsct] do ! Take a peek at each psect in this module.. ‘ 
3 egin : 
3 1978 2534 4 toval pscdsc : ref block(,byte); ‘ 
: 1979 2535 4 pscdsc = fndpscmapent( .i ); ! Set up psect info... ‘ 
; 1980 s2e8 & pscdsc = epacdocipntol_pecdesi: ‘ 
; 1981 537 4 if .dmtptr neq ; 
; 1982 538 4 then | : 
; 198 539 5 begin : 
3: 1984 540 5 Local mpcblk : ref block(,byte); ; 
; 1985 2541 § mpcpik = .pscdsc(psc$l_mpclst); ! Set up MPC info for the psect... : 
: 1986 $206 5 while .mpcblk neq 0 do : 
; 1987 2543 6 begin ; j ‘ : 
; 1988 544 6 if .mpcblk{mpc$l_ownomd] eql .obmodesc ! Is this psect owned by this objmod ; 
; 1989 545 6 then : 
; 1990 546 6 if .mpcblkCmpc$l_length] neq 0 ! If it's a non-0-Length psect : 
; 1991 sect 6 then . 
i 199% 548 7 begin : 
3; 199 2549 7 dmtptr(Cdcp$l_base] = spocdectonsS\ posed + ! then write it’s base... 3 
3: 1994 550 7 -mpcblkCmpc$l_offsetd; ’ 
3; 1995 5 dmtptr(Cdcp$l_length] = .mpcblk{mpc$l_TengthI; ! and length to the DMT 3 
; 1996 226 7 zero_length_psect = false; ! Yes, it was a valid psect : 
3 1997 553 7 exitToop; ! (i.e., non-0 Length ; 
; 1998 554 7 end . 
3 1999 555 § # : 
3 $050 228 begin 3 
; 2001 557 7 curomdptr(Cdcm$w_numpsc] = .curomdptr(dcm$w_numpsc] - 1; ! O-length, so lower the : 
3 O08 558 7 zero_length_psect = true; i “count of psects by 1 : 
; 200 559 7 Lnk$gl_datbytes = . Lnk$gl_dmtbytes - dcp$c_size; ! and adjust Ink$gl_dmtbyte | : 
3; 2004 560 7 exitloop; ! accordingly. 3 
$006 seo g bh = capcbkaCnecti, inenee 
3 mpc = .mpc mpc$l_nxtmpc); 3 
: $009 368 end: mene : | of WHILE Loop | : 
; 2008 564 if (.dmtptr+¢dcp$c_size) gtr .lnk$gl_dmtbuffer(1) ' If we're going to end up past the end 3 
; 2009 565 then ! of our allocated space for the DMT, 3 
; 2010 266 6 begin ' then something's wrong -- stop : 
; 2011 567 6 dmtptr = 0; ! manufacturing it : 
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; 1 68 6 return true; ! and return 
3 018 $3 end 
: 14 9 else 
; 2015 7 if not .zero_length_psect ' If we got a good psect 
; Big es then ; ! move the pointer to t 
: 4 fF ? tn dmtptr = .dmtptr + dcep$c_size; ! for the next psect 
: O18 o ! of INCR Loop 
3 031 278 return true 
; 2022 578 1 end; 
O3FC 00000 CONSTRUCT_DMT: 
-QORD Save R2,R3,R4,R5, R6, R7,RB,RO 
59 000000006 00 9€ 90002 MOVAB LNKSGL_OMTBUFFER+4, RO 
58 000000006 00 9€ 000 MOVAB LNKSGL~ “DMTBYTES, R& 
57 00000000 EF H 001 MOVAB OM Ter  R7 
51 67 00 0001 MOVL DMT R1 
61 000000006 09 DO OOO1A MOVL PNKSGL “DSTLOCN, (R1) 
50 Fooc «= b0 0021 MOVL OBMODESC RO 
56 12 AO 3C 00026 MOVZWL 18(RO), R6 
08 Al 26 gt Al 0002A ADDW3 #1, R6, 8(R1) 
5 1 DO 0002F MOVL 1, CUROMDPTR 
50 Fe =A? «DO 00032 MOVL § PREV_DSTLEN_ADDR, RO 
18 13 000 BEQL 
60 61 FC «6AO OC 909 SUBL3 -4(RO), (R1), (RO) 
11 12 00030 BNEQ 1 
5 FC AO SE O003F MOV =4(RO), R2 
5 51 C2 00043 SUBL RI. 
6 52 CO 00046 ADDL LNKSGL »D DMTBYTES 
67 FC AO 4 0049 MOV Retr TPTR 
53 67 DO 00040 MOVL  DMTPTR, CUROMDP 
FC OA? 67 04 C1 00050 1$: ADDL3 #4 DRIP TR PREV. DSTLEN_ADDR 
50 67 O¢ C1 00055 ADDL3 #12, 
69 0 D1 00059 CMPL ~— RO, Rj _BMTBUFFER+4 
51 14 9005¢ BGTR 
67 0c CO 0005E ADDL2 #12, DMTPTR 
54 oi CE 00061 MNEGL #1, 1 
3 17 00064 BRB 9$ 
54 DD 9066 28: PUSHL 
EAF9 CF 01 F CALLS FNDPSCMAPENT 
50 60 D 0060 MOVL tpécher) PSCDSC 
52 67 D0 99 MOVL DMTPTR, R2 
44 «1 07 BEQL 
51 0c ad 06 007 MOVL 12(PSCDSC), MPCBLK 
x % 079 3$: BEQ. = 6 
FoDC «=? 06 Al ODI ove CMPL $ 4(MPCBLK), OBMODESC 
1FO 4 1 BNEQ 3$ 
oc al OD 3 TSTL le (MPCBLK) 
OF 1 BEQL = 4 
62 18 Ag sae ADDL3 (MPCBLK) ¢ 5 EBs (R2) 
06 =A C al 00 . ROVL 2(m 4(R2) 
55 04 0009 CLRL ZERO H_PSECT 
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POW NEON NO" WO 
COO NOM —90 9007-90-00 — 
SOW Fun" 0 0 HOON 


OWWNnOFOOovFOooor— 


SCODES + 16A2 


H 11 j 
LNK PASS2 16-Sep-1984 17:44 AX-11 Bliss-32 v4.0 Page 
ioe 2080 12-808- 1382 99: 40:34 LINKER. SRC LNKOBJPS2. B82: 31 ’ (385 
: 4 79 «1 global routine Lnk$objpass2= | ; 
; 5 » begin | : 
: : § i MAIN ROUTINE TO READ RECORDS SEQUENTIALLY FROM OBJECT | : 
: 2028 3 3 MODULE FILES AND DISPATCH ON RECORD TYPE | 
: 20 5 2c ; 
; 2031 § tirlocn; ! SAVED LOCATION IN IMAGE BINARY : 
; 20 ¢ Local : 
; 20 $ first_dbg_reco : 
; 20 prevomd : ref Slockt bytel. ! PREVIOUS OBJ MOD DESCR ‘ 
; ° 5 239 auxfnb : ref blockl, byte; : 
: 9 298 stackpointer = stk$c_size; ! SET STACK POINTER : 
; 2039 594 2 if .lnk$gl_dmtbuffer[0] neq 0 : 
3 ey a2 then : 
; Ong 59 4 bd = ,lnk$gl -dmtbuf fer (0); ! POINT TO BEGINNING OF TABLE ‘ 
; 204 598 prev_dstlen_addr = 0; ; 
: $048 800 2 else’ 
3 e 3 
i 2046 601 “antptr = 0; ; 
; 048 608 while Lnk$nxtobjmod() ! WHILE THERE IS ANOTHER OBJECT MODU : 
; 2050 605 frst _dbg_record = true; : 
: 2051 06 obmodesc = a k$ te curond: : 
: ee 607 inksgl rom st] = ' CLEAR DEBUG LIST (USED DURING PASS P 
; 205 608 (0, tn cnage witty } thkSgl. "Ligetes)s ' UNDEFINE ALL LIT 3 
: 2054 609 stapx = shrimgsym = shrsymexpr- = 0; ! INITIALIZE DATA FOR SHR IMAGE CHEC F 
; 32? 319 i uate Lnk$nxtrec(objrecdesc) ! READ THE NEXT RECORD ; 
3 o be 3 
3 "td ol¢ 4 ry be -objrecCobj$b_rectyp] from 0 to obj$c_maxrectyp ! AND DISPATCH ON THE RECORD TYPE 3 
ie By hy eo : 
: 2060 615 4 { HEADER RECORDS : 
; 06¢ ei? 6 Cobj$c_hdrJ : : 
3 egin 5 
3; 2064 619 : prohdr ! PROCESS THE HEADERS 3 
3; 2065 620 if nobirecCobj$b_ tig. eql gbj$c_ hdr_lnm ! IF THIS IS THE CnATOR Jone ,RECOR 3 
3 ‘s¢ | 621 and .obmodescComd$v_nobin] ! OF A MODULE WITHOUT ANY BINA : 
: 206 6 § then exitloop; ! THEN ALL DONE WITH MODULE 3 
, ee op ae 
; O70 6 : 4 { TIR RECORDS | ; 
> 207 ne Cobj$c_tir] : ; 
3 ors 6 3 4 ee if -tnisel ctlmskCink$v_image) ' JF THE IMAGE FILE IS STILL OPEN : 
3 en be 3 
3; 2075 630 tnigat ctlask(ink$v gibprecd's false; ! RESET POSSIBLE DBG 3 
; 1 631 ink$gl~ 44) = ,tirlo ' RECORD FLAG AND LOCATION : 
3 07 6 § prot rdbg( ' COUNTER AND PROCESS IT 3 
i 3078 6 rloen © -ink$gt_Locn; i SAVE THE LOCATION COUNTER : 
; = 3 
3; 2080 635 4 else exitloop; ' NO IMAGE FILE SO SKIP REST OF THIS 3 
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40:33  CLINKER.SRCILNKOBJPS2.8%2;1 9¢ 553 


. 
| 

; 1 6 $ 4! 

3 4 : re : DEBUG AND TRACEBACK RECORDS 

; ess es CobjSc_dbg.obj$c_tbt2 : | 

; egin 

; ect . a. not .lnk$gl_ctlmskCink$v_image) ! IF NO IMAGE THEN QUIT NOW | 

; en 

5 $c8 exitloop; 

; 208 644 § if Pa be gtiaskt inkty dbo) ! IF /DEBUG REQUESTED 

; 2090 645 or (.Unk$gl_ctlmskClak$v_trace] ! OR /TRACE REQUESTED 

; 2091 ose and i.objrezfobjsp rec xP eql obj$c_tbt))) ! AND THIS IS A TRACEBACK RECORD 

; § 64 and not .\ink tLettaskt nhs 87s ' AND THIS IS NOT A SYSTEM IMAGE BEI 

; 646 ; AND NOT .LNKSGL_CTLMSKLLNKS$V_SHR !' AND THIS IS NOT A SHAREABLE IMAGE 

; 2094 649 and not .obmodesclomd$v_debuger] ! AND THIS IS NOT THE DEBUGGER MODUL 

: 2095 650 6 then bog te 

: oae O23 ? inkSgl_ctlmsk(€ink$v_dbgrec] = true; ! SET THE DEBUG CONTEXT FLAG 

; a4 4 638 ? if een tema sesere ! if this is the first dbg record for the module 

; an 

3 199 tH 6 = -dmtptr neq 0 ! and there is dmt information to output... 

3 en 

3 oe re : begin 

3; 210 658 7 first _dbg_record = false; 

3 2106 659 7 construct_dmt(); ! then do it 

3 132 264 $ end; 

: 2107 66¢ é Lnk$gl_locn = .Lnk$gl_dstlocn; ' SWAP LOCATION COUNTERS 

; 2108 663 6 prot rdbg(); ! AND GO PROCESS IT 

3; 2109 664 6 nk$gl_dstlocn = .lnk$gl_locn; ! SAVE UPDATED POINTER 

: Wy os 2 —_ 

> 211 667 4! ; 

; 18 ree 2 END OF MODULE RECORDS 

: 115 670 é : Cobj$c_eom,obj$c_eomw] : 

3 egin 

: 119 672 5 . if .stackpointer eql stk$c_size ' IF STACKS HAVE BEEN 

3; 2118 67 then exitloop; ' COLLAPSED ALL DONE 

> 2119 67% signal (Lin$_eomstk,3, i ELSE REPORT THAT STACK 

3; 2120 675 (stk$c_size - .stackpointer) ' STILL HAS_ITEMS ON IT 

: 2121 67 obmodescComd$b_namingJ, (nk$gl_curfillfdb$q_ filename); 

: 21 : 67 stackpointer = stk$c_stze; 1 AND RESET If 

3s et 678 4 end; 

3; 2124 679 4 Cinrange) =: 

; 2125 680 4 true; ! IGNORE OTHERS 

: 21 $ 681 4 Coutrange) : 

3 21 tt 4 signal (Lins iUUpec typ ' ILLEGAL TYPES 

: 2128 6 4 -objrecCobj rectyp} -obmodess Conds pening? 

: ! 9 ons ; : . Ink$gl_record, ink$gl_curfillfdb$q_fTlename)); 

3 es 

; : 1 ' user's nae ' END OF RECORD LOOP 

3 sd = 0; 

; ' ‘ ° end: _— ! END OF MODULES LOOP 

; : 5 re ink$gl_curfil = 0; 

: 21 692 if .dmtptr neq 0 and .ink$gl_ctlmsk(ink$v_image) ! IF WE'RE PRODUCING A DEBUG MODULE/PSECT INFO TABLE 


| 


<r 


11 


LWK -084PASS2 


00234 TIRLOCN: 
OFFC 00000 
2 SSRIS $8 Se hue 
$8 ooophdag Sb Se donts 
11 $4 00000000" EP 3 Boat 


1-0-1984 09:17 


3: 21 693 then 

; 133 694 begin 

3 Az 244 a (.prev_dstlen_addr = .lnk$gl_dstlocn - .(.prev_dstlen_addr - 4)) eql 0 : 3 last 
3 138 $99 *inkSgl _dmtbytes = -UnkSgt_ dmtbytes - 

3: 216 238 ([dmtptr - (.prev_dstlen_addr = 4)); 
RS HG gone 

; 168 701 i Loop po A THE CLUSTERS AND CROSS REFERENCE ANY SYMBOLS THAT 

7 216 7 § i ARE ON THE SHR LST AND ARE RELOCATABLE (1.£. DID NOT GET BASED 

3 138 f DURING PASS 4 

; 2150 705 if LnkSgl gyloekt inkoe ® apopnd 

: 2151 7 and .lAk$gi_ctimsk(Tnk$v_long) 

: 21 § 7 then begin 

: 21 708 oca 

3: 2154 709 cluster : ref »plocke gbyts?- 

3; 2155 710 symbol : ref b Lockt by 

3 128 ay symsnb : ref block byte): 

; 2158 18 cluster = Lnk$gl_clulst; 

3; 2159 714 while (cluster = mg ae a nxtclu]) neq 0 

; 2160 715 do if .cluster{clu$v_shri 

: 2161 zig and not salusterisluae. based) 

3 166 71 4 soe begin 

3; 216 718 4 mbol = .cluster(clu$l_shrist]; 

3 2164 719 & while «symbol neq 0 

3: 2165 720 do begin 

3 198 721 synend = iEtyns - -Syepetteyett. naming] - snb$c_fxdlen; 
: 216 7 § . mbol(sym$v_crosr 

3: 2168 as 5 en ert$ insFtret(inksat avgice led. symbollsyast.. value), 
3; 2169 724 «5 (mene snb$b_namLng 

3; 2170 725 5 “en -symbolCsym$l_shrink]; 

: 2171 7 $ 4 cen nd; 

3 ive 7 

3 217 728 

; $i 188 return. - 

: 2175 730 1 en 


-PSECT 
-BLKB 
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THE LENGTH OF THE LAST OBJECT MODULE’S DST CONTRI 


! IF MAP FILE IS OPEN 


! POINT AT START OF LIST 


' CINK TO NEXT SYMBOL 


! END OF PASS 2 


SOWNS ,NOEXE ,2 
4 


SCODES,,NOWRT ,2 


LNKSOBJPASS2, Save R2,R3,R4,R5,R6,R7,R8,R9,- 


LNK SSL =CURF IL R11 
ENKSGL &LO R10 


CNS. CTLM K, R8 
#25, STACKPOINTER 


! IF CLUSTER IS NON-BASED SHR IMAGE 
2579 
| 


ule didn't 
ny to the DST, then sie 
y adjusting ink$gl_dmtby 


' IF SYMBOL WAS CROSS REFERENCED 
i THEN ENTER IN CREF BY VALUE TABLE 
--symbolCsym$w_ flags}); 


2592 


<~- 


————_ 


Kk 11 
LWK_OBJPASS2 16-Sep-1986 AX=11 Bliss-32 V6. Page 85. L 
yOu=000 12: =ben- 198 90:15 740: 3 PINKER’ SRETLNKOB IPS? B42: :1 . (383 V 
50 000000006 i i 7 MOvL LNKSGL_DMTOUFFER, RO 1 2594 : 
0224 (7 6 D MOVL RO, DMTPTR : 2597 : 
0220 cv D4 CLRL PREV_DSTLEN_ADDR i 2598 ; 
0224 (C7 04 B 1$: CLRL. OMTPTR + 2601 : 
000000006 09 0 Fe O03F 2$: CALLS 1 : LNKSNXTOBJMOD + 2603 : 
5 0 a6 BLBS : ; 
O10E 31 4 BRwW 3 : 
5 1 DO 0004C 3$ MOVL #1, FIRST_DBG RECORD + 2605 : 
000000006 DO 0004F MOVL LNKSGL_CUROMD ; 2606 : 
§ D 0096 MOV RO : : 
06 A p CLRL_ 4(RO) 3 2607 F 
20 00 6 00 2C 0005¢ MOVCS #0, (SP), #0, #32, LNKSGL_LITFLGS > 2608 : 
00000009" EF 0061 : . 
FB OA? C7 0066 CLRQ SHRIMGSYM + 2609 : 
A7 94 0006 CLRB STAPX $ ° 
04 A? 9F 0006C 4$ PUSHAB OBJRECDESC + 2610 : 
000000006 9 9} FB OOGE CALLS #1, LAXORK TREC ; é 
0 3 0076 BLBC =. «aRO,. 8S : : 
5 08 87 9A 00079 MOVZBL aQBUREC, R2 + 2612 F 
07 00 2 8F 0007D CASEB. R2, #0, ; : 
OOAS 0048 FFEB 0031 0081 5$ <WORD 7$-5$,- ; : 
00A5 FFEB 0061 0061 00089 4$-5$,- : ; 
9$-5$,- : . 
14$-5$,- ; : 
11$-5$,- : ; 
11$-5$,- : ; 
4$-5$,- $ : 
14$-5$ : ; 
7E 68 14 C1 00091 ADDL3 #20 LNKSGL CURFIL, -(SP) : 2684 3 
000000006 00 oD 00095 PUSHL LNK$GL R : ; 
7E 67 28 C1 00098 ADDL3 #40, Sh aMObESC. -(SP) + 2683 F 
2 DD 0009F PUSHL R2 + 2684 ; 
04 DD 000A1 PUSHL #4 : ; 
000000006 8F DD 000A3 PUSHL aL INS ILLRECTYP : 3 
000000006 00 06 FB 000A9 CALLS , LIBSSIGNAL : : 
BA 11 000B0 $$: BRB ts’ F : 
00A3 C9 09 FB 0082 7$: CALLS #0, PROHDRS + 2619 : 
50 08 A? 00 0008 MOVL  OBJREC, “ro : 2620 : 
01 01 AO 91 00088 CMPB—s«1(RO), : 3 
AB 12 O0BF BNEQ 4$ ; : 
50 DO 000C1 MOVL OBMOD Sc > 2621 ; 
A3 14 AO 1 5 00C4 BBC atte : : 
0085 31 000C9 8s: BRW > 2622 : 
FA 66 9 CC 9$: BLBC LNKSGL CTLMSK, 8$ + 2628 : 
02 As 1 BA OOOCF BICB2 LNRSGL_CTLMSK+2 > 2630 : 
6A 0228 c? DO D3 MOVL THA DeN CN RKSEL ~LOCN + 2631 : 
69 0 FB 0D CALLS IRDB > 26 : : 
0228 (7 AD D MOVL tNkSGL_ of be TIRLOCN : 26 : 
A 11 QO0EO 108 B > 2628 : 
6C 8 £9 OO00E2 118 BLBC ie KSGL CTLMSK. 16$ + 2641 : 
OA 68 EO OO0E BBS é CTLMSK, 12$ > 2644 : 
61 02 As FI £9 BBC #2. ; LAKSSL> CTLMSK+2, 15% + 2645 : 
0 1 ef CMPB Reg 3; 2646 3 
¢ 1 0 F BNEQ 15$ ; : 
58 68 id F312$: BBS #3,-LNKSGL_CTLMSK, 15$ : 2647 | : 


LWE DB APASS2 


50 


fore) 
LaF 


OOF4 


000000006 


7E 
7E 
6E 


etieteed | be 


61 000000006 


‘ 000000006 


F6 58 

50 

16 oc 
000000006 


“ 
~m 


NPV  Vwrwny> YVMSOou ou 
MrIWNO WNL LSOMOOO Goo 


52 


50 


7 
5 
1 
0224 ; 
7? 
000000006 
gf 
A 
11 «A? 
25 
38 
11 y 
000000006 , 
am, 
8F 
000000006 00 
FEES 
68 
0224 C7? 
20 
68 
0220 C7? 
FC AI 
60 
OA 
52 
50 
05 
01 AB 
000000006 00 
64 
3¢ 
02 
58 = AG 
30 AG 
E 
OF A 
5 
FB AO 
01 
OA A 
04 =A 
000000006 6 
04 
1¢ = A2 
pt 
1 


C909 SII NAA AAA UMMM ES & ENNIO 


FOOD FS BOTH WP WOO" WOM 0 ONMNWMOOWOS & HF (“ODI OW? SW "OTD Fm owmoo 
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fa ne ee ee ee ow ow ee we nw fw fw wm ww fw lw lo lol ola lolelololololololnlelelelelolelolololelolelelolololelololelo la) 


Dd 
: 
E 
Dd 
1 
D 
F 
Dd 
F 
D 
9 
1 
C 
5 
C 
D 
) 
F 
9 
1 
3 
D 
D 
1 
E 
D 
9 
C 
1 
C 
C 
E 
5 
D 
1 
E 
E 
D 
1 
9 
C 
D 
9 
F 
D 
1 
0 


OWFKOMDsIIM SO LOo-r Sane sAs DNMDWOW 9 SNA MD LSMOOLOOSPOLO PWM 
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13$: 


14$: 


168: 
17$: 


18$: 


19$: 


208: 


p=1984 1:00 
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Sao RO. 
e0(n0) clitsxe 2 
Flas} 9086 _RECORD, 13$ 


* 
f RST BG, RECORD 

CONSTRUCT DMT 
tNisgL 9 LADSTLOCR, LNK$GL_LOCN 
LNKSGL LCN. LNK$GL_DSTLOCN 
STACKPOINTER, #25 
#20, LNKSGL CURFIL, =(SP) 
#40. OBMODESC, -(SP) 
sAeraue a =(SP) 
Ac INs INS EQUSTK 
938, A yatararnren 
NKSGL_CURISD 
LNKSGL _CURFIL 
LNKSGL_CTLMSK, 18$ 
PREY a N “ADDR, R1 
(RO), CNKSGL_DSTLOCN, (R1) 
R2, RO 
RO. LNKSGL _DMTBYTES 

NKS$GL~CTLMSK, 22$ 
tNRSGL CTLASK+1, 22$ 
LNK$GL~ ELULST. CLUSTER 
TCLUSTERD- CLUSTER 
88 (CLUSTER) 19$ 
, 19$ 

USTERD. 


ct SYMBOL 
SYMBOL), RO 
he's 28 ann 
") 


$88 
( 
8(C 
9$ 
5( 
Sind) 
dis SvMB 
(sy sims MenB) 
PNKSAL VALCTLTB 

rp CRFSINSRTRE/ 

g8is YMBOL), SYMBOL 


#1, RO 


pee ‘(Da Sonn 


Sete Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Sete Se Se Se Fe Se Se Se Se Be se 


oon OOO 
umn Ww 
—FWNOO YW 


ISS. 
—m 


Be Se Se Se Se Ge Be Se Se Be Se Fe Se Se Se Se Se Se Be Se Ge Ge Fe Ge Fe Ge Fe Ge Fe Se Se Se Ge Se Se Se Ge Se Fe Se Se Se ee Se eae Fe Se Se Sees Se Se Se se Seas 


"11 
viet ieee 18-Se0-1984 90510548 LINKER® SRCILAKOBJPS2. "38251 


; Routine Size: 471 bytes, Routine Base: S$CODES + 1763 


; 2176 2731 0 end eludom 
-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
SGLOBALS NOVEC, WRT, RD mee oO ot LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 76 NOVEC, WRT, RD OSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 64 NOVEC.NOWRT, RD. EXE NOSHR. LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 14 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
» MBS 0 NOVEC“NOWRT {NORD ‘NOEXE,NOSHR, LCL. ABS, CON,NOPIC,ALIGN(O) 
Library Statistics 
ecoccecce Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32 18619 97 0 1000 00:01.9 
“$255$DUA28: CLINKER. bBIDATBAS. L32;1 538 110 20 28 00:00.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKOBJPS2/0BJ=O0BJ$:LNKOBJPS2 MSRC$:I.NKOBJPS2/UPDATE=(ENHS:LNKOBJPS2) 


; Bize: 6220 OSeres + 892 data bytes 


me: . 
; Elapsed Time: 08:4 9:8 
; Lines/CPU Min: 1524 
: Lexemes/CPU-Min: 210350 
; eee Used: 470 pages 
; Compila 


tion Complete 


<r 
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